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Info-Designs 

announces . . . 

Small Business Accounting 

for the Commodore-64 / * 
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Now the power of Info-Desig 
Management Accounting System 
is available on the Commodore-64 
in a full and faithful version! 

Thousands of these quality business accounting 
software packages have been sold on the CBM 
computer at $595 each. Now, similar features are 
available to the small business user on the new 
Commodore-64 for S199 per module! 

Select the accounting modules you need— 

• Accounts Receivable/Billing 

• Accounts Payable/Checkwriting 

• General Ledger 

• Inventory Management 

• Payroll 

• Electronic Calendar ($149) 

Limited Introductory Offer! 

Our SoftPack combination contains the "Big-3" 
accounting— A/R, A/P and G/L— for only $495. 
Available for immediate delivery! 




Flexible Design 

The accounting system will work with one or two 
VIC-1541 disk drives (or 2031/4040 with IEEE 
interface), 1525 printer, and color or b&w monitor 
or TV. 

Customer Support Plan 

As part of I nfo-Designs ongoing effort to provide the 
highest quality microcomputer applications in the 
marketplace, we offer an optional telephone con- 
sulting service to support installation and ongoing 
operations. 

Order NOW. . .for immediate delivery 

See your local Commodore-64 Dealer or call us 
directly at (313) 540-4010. MasterCard and Visa 
accepted. 
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6905 Telegraph Road* Birmingham, Ml 4801 0. (313) 540-4010 




You need more 
than ABC, BPI, MAS, 
BEC, EBS, XYZ... 



Workhorse solutions 
for tough questions 

There are loss of bookkeeping and business systems for your 
Commodore computer Maybe they all seem about the same, 

Ours is different: real business software for real 
computers, with capabilities you need, at a price you 
can afford. 

When professional computer dealers who were 
dissatisified with their current accounting software were 
allowed to trade it in for our System 111, we were 
inundated. We got practically everything — BPI 
EBS. MAS — just about everyones. 

We have general ledger; accounts 
receivable, accounts payable, payroll, inventory, 
mail list management and much more. 
There are special packages for oil 
accounting, church records, 
encumbrance accounting, pharmacy 
management, etc. 

You will like our user-defined 
reports. You decide what your 
Balance Sheet P&L Budget 
Analysis, etc.. will look like. 

If you have purchased a 
Commodore 64*. you will be 
pleased when you see our 
complete line of business 
software for the '64. This 
software is no rinky-dink. rip- 
off software that is an upgrade 
from the VIC. These are real 
workhorse programs that use file 
structures developed for the big 
boys. 

You have purchased the right 
computer when you bought 
Commodore. Now do it again. Buy 
the right software. Buy it from the right 
place: your professional computer dealer 
Thats where you'll get the help you need 
as you start 

Call or write for the name of the 
dealer nearest you. 

Dealer Hotline: 1-800-527-4548 



'Commodore 64 15 a registered 
trademark of Commodore 



Available in Canada through 

Canadian Micro Distributors Ltd. 

SCO Steeles Ave.. Milton. 0NTL9T3P7 

Telephone: 416-878-7244 -Telex: 06-961242 



Solutions 

PO. Bck P, M c Kinney, Texas 7506$ - (214) 542-027$ 



FOR YOUR COMMODORE WORDPROCESSING NEEDS 

INVEST IN THE BEST 






Professional^^ 



mOTVa 

oftware 



ifessJonal^ aftware 



0fTW« 



*■$? 



WordPro 3 
PLUS 




fes$lom 
oftware* 



ord'ro 




WORDPRO PLUS. IN A CLASS BY ITSELF. 



When choosing a Word Processor foryour Commodore" computer, there's 
no reason to settle for anything but the best — in a word. ..WordPro™ 
With over 30,000 happy clients churning out letters and documents all over 
the world, the WordPro Plus'" Series is unquestionably the =#1 selling soft- 
ware package on Commodore computers! So when you choose WordPro, 
you know you're investing in a trial-tested program (hat's a real winner. And 
WordPro is NOW available for your Commodore 64*" computer— at prices 
starting as low asS89.95. 

Designed for the user who has no computer or word processing experience 
whatsoever. WordPro Plus brings a new dimension to the term "user- 
friendly." More than just easy to use. WordPro will turn your Commodore 
computer into a sophisticated time saving word processing tool — loaded 
with the same inventory of features found in systems costing much, much 
more. 

Our nationwide team of over 600 Professional Software/ Commodore com- 
puter dealers will help you choose the WordPro Plus system that is best tor 
your needs. Our full-service dealers have been set up to provide strong 
customer support. In additipn to helping you choose the right system, many 
Professional Software dealers also offer WordPro Plus training and system 
installation 

Professional Software offers a complete spectrum of WordPro word process- 
ing software for Commodore computers ranging from the Commodore 64 to 
the more business oriented 8000/9000 series computers. And WordPro 4 
Plus and 5 Plus also interact with our database management systems includ- 
ing InfoPro and The Administrator. So whatever your Word Processing 
needs, there's a WordPro system that's right for you. 



WordPro'" and WordPro Plus" are trademarks of Professional Software Inc 
The WordPro Plus Series was designed and written by Steve Punter ol Pro Micro Soltware Ltd 
Commodore' - and the Commodore 64" are trademarks of Commodore Electronics. Inc. 
Dealer inquiries Invited 




Invest in the best. . . 

WordPro Plus. In a class by itself. 

Call us today for the name of the WordPro Plus dealer nearest you. 

Professional Software Inc. 



51 Fremont Street 
Needham, MA 02194 



(617)444-5224 
Telex: 951579 



Don't let price get in the way 
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Adding a printer to your computer makes 
sense. But deciding which printer to add can be 
tricky. Do you settle for a printer with limited 
functions and an inexpensive price tag or buy a 
more versatile printer that costs more than your 
computer? Neither choice makes sense. 

Here's a refreshing option— the new, compact 
STX-80 printer from Star Micronics. It's the under 
$200 printer that's whisper-quiet, prints 60 cps 
and is ready to run with most popular personal 
computers. j 

The STX-80 has deluxe features you would ^ 



expect in higher priced models. It prints a full 80 
columns of crisp, attractive characters with true 
descenders, foreign language characters and 
special symbols. It offers both finely detailed dot- 
addressable graphics and block graphics. 

And, of course, the STX-80 comes with Star 
Micronics' 180 day warranty (90 days on the 
print element). 

The STX-80 thermal printer from Star 
Micronics. It combines high performance with 
a very low price. So now, there is nothing in 
the way of owning a quality printer. 

k 'Manufacturer's suggested retail price. 




The new STX-80 printer 
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Understanding PILOT 
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34 Understanding PILOT by Stephen Mum 

Teachers can use PILOT with their Commodore 64 to program 
computer-assisted instruction to be used by their students. Steve pro- 
vides a detailed description of exactly what you can do with this versatile 
programming language. 

40 Programming With COMAL, the Not-So-New Language 

by Len Lindsay 

Just exactly what can you do with COMAL that you can't do with BASIC? 
The author of the COMAL Handbook explains how this structured 
programming language works and how you can use it in your programs. 

48 Random Thoughts by Mark Zimmerman 

Random and pseudorandom numbers can be useful programming tools for 
many applications. In Part 1 you'll find out what random numbers are and 
how to use them to your advantage. 

52 Starting With Bits and Pieces by Jeff Hand 

In Part 1 of Jeffs series on how computers think you'll learn about the 
binary system — how it works and how it is related to both decimal and 
hexadecimal number systems. 

56 Exterminating 101 or Debugging Can Be Fun by Jim Gracely 

How to find and exterminate those pesky, elusive little critters that foul up 
your programs. 
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Letters 

Our readers let us know what's on their minds — and help each other out, as well. 



Random Thoughts 
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Editor's Notes 
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17 The Arts 

The Harmonizer by M.D. Perry 

Use this program to create multi-voice songs on your Commodore 64. 
Advanced Bit-Mapped Graphics for the Commodore 64 by Frank Covitz 
Create high-resolution graphics in record time with machine code. 

6 2 Education 

The Chem-puter Laboratory by Curtis T. Sears. Jr. 

Commodore PETs help teach college chemistry. 
Six Months With a 64 by Doris Dickenson 

Advice to teachers who want to teach computing — from a fourth-grade teacher who 

knew nothing about computers when she started. 
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Bits and Pieces 




Debugging Can Be Fun 



Multi-Purpose CBMs Keep Student Interest High by Jean Spahr 

Students don't want to leave their computer classes in this Illinois high school. 
You and Your Computer, Part 5: Color Me Purple by Doris Dickenson 

Youngsters learn to use both color control keys and the POKE command to add color 

to their programs on the Commodore 64. 
Parent Computer Power by Walter Herrala, Ph.D. 

How an elementary school on a limited budget uses "parent power" to enrich 

students' computing experience. 
Microcomputers: Truly Child's Play by Terry Anders 

Even three year-olds are using Commodore computers at Kinder-Care Learning 

Centers. 

80 The Home 

The Commodore 64 Trip Planner by Charles Knight 

How the 64 can help make your summer touring a little easier. 

88 Programmer's Tips 

No List/No Save by David Williams 

If you need to keep end users from tamperingwith your programs, here's a simple 

method for use with all Commodore computers. 
Dollars and Cents Make Sense by Joe Rotello 

Line up decimals automatically when you're doing money calculations. For any 

Commodore computer. 

94 Technical 

Getting the Most Out of (And Into* Your Disk Drive hy John Heilborn 

Part 2 in this three-part series explains how the disk finds information and how you 
can write data directly onto the diskette without using a SAVE command. 



96 



User Departments 
VIC 20 

Tricky VIC Dynamic Bookkeeping by Ron Kushnier 
Commodore 64 

Detecting Function Keys on the 64 

User Defined Function Keys 

Commodore 64 Screen Dump 

Program, Save Yourself! by Bruce Jaeger 
PET/CBM 

Machine Language Monitor in the Upgrade PET by Elizabeth Deal 

The Beep Wedge for the PET by Elizabeth Deal 

Where Are We? by Elizabeth Deal 

111 User Groups 

User Group Listing 

A complete list of groups around the world — and maybe right in your home town! 
User Bulletin Board 
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That Does Not Compute . . . 

When we make a mistake, you'll find the fix here. 
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New Products 

What's new from independent manufacturers 




120 


Advertisers Index 








'■ 



Products for VIC 20 and CBM64 
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SOFTWARE 

Wort Wizard For The Vic 20 s — (Requires at feast 8K memory expansion.) A user friendly 
WORD PROCESSOR with optional joystick control. Easy edit and string manipulation com- 
mands that follow the standard format. Full use of function keys for ease of use- 100% 
machine language with Delete Word, Search functions and Full Justification. Use VIC Graphic 
printer, or any Centronics compatible printer connected to the user port. On tape {support 
disk). $34.95. 

ZAPI — Climbing the corporate ladder could be fun except for all that falling paperwork. 
This Hires arcade type games allows up to 4 players to advance through each floor and 
change levels to scale the corporate ranks. Be careful, it's easy to be ZAPPED! CARTRIDGE 
for VIC 20.® 529.95. 

BombBr Word — A unique graphic word game on cartridge that provides the full thrill of 
arcade action. Complete with six modes of play options for added enjoyment. Play against 
the computer or another player. 6 to adult. For VIC 20* . $29.95. 

Tic Attack — A fast action arcade game on Cartridge that challenges all of your dexterity. 
Written in machine language for special audio & visual effects. Over f 00 levels of play. High 
score indication. For VIC 20 s . J29.95 

Dot-ALot — As you wander through the maze of life collecting Berries, you happen upon 
some magical fruit. Pick one and the treasures appear, but the Meanies are out today look- 
ing to spoil your fun. Oefeat them and continue on to a higher level. An ever changing maze 
plus arcade type animation and sound will provide a real winning CARTRIDGE for Ihe VIC 
20* $29.95 

Triple Play — Three word games that are both fun and educational. The games that are 
Included are CROSSWORDS (requires at least 8K expansion). Five complete puzzles are in- 
cluded and each puzzle has up to 100 different words. CRYPTO-SOLVE will help you solve 
those cryptic messages found in newspapers, books, and magazines with a systematic computer 
technique. Included are approximately 50 different puzzles. You can even enter your own 

Dealer and Distributor 

Inquiries invited 

N OTE: We solicit hardware and software items tor the VIC 20* and CBM 64* Royalties, license tees, or outright purchases 
can be negotiated. CBM 64" & VIC 20 s " are Registered Trademarks ot Commodore Business Machines Inc 



cryptic messages. HIDDEN WORDS will display a matrix of seemingly random 
tetters on the screen. Upon closer inspection, you will be able to find many words. 
Included are approximately 25 different puzzles. For VIC 20 s . Only $29.95 for all 3 
KeyquBst — Our exciting new Arcade type game that takes you through the many levels 
of an ancient dungeon while gathering treasures and gaining experience points. Monsters, 
magical keys, and hidden passages all add to the excitement. ON CARTRIDGE for VIC 20 s . 

$34.95 
Sketch Pad & Cnar-Gen — A high resolution drawing program that will allow you to save 
your pictures to tape. Also included is a simple to use character generator that wilt allow 
you to design a different character for every printable key. Create game creatures, foreign 
alphabets, secret symbols or other special characters. One set is included. On tape (or the 
VIC 20* . $24.95 

HARDWARE 

Expand-O-Ram — 16K Expansion Board for the VIC 20* with reset, memory write protect, 
full memory allocation, plus TWO slots. Like having 2 products in 1. Can be used as a car- 
tridge development system too. S119.Q0 

Universal Tape Interface & Duplicator — (Use on the Commodore 64" and VIC 20 s ). 
With this device, you can easily load, save or even duplicate tapes with your standard recorder. 
Full 3 LED indication of Data transfer. A reliable way to Load, Save and Duplicate. NOTE: 
Duplication requires 2 standard cassette recorders. Only $49.50 

Tymac Buffered Parallel Cable with Driver— For the VIC 20 s & Commodore 64* . This 
cable assembly plugs into the USER Port and provides a simple and inexpensive way to 
connect a PARALLEL Printer to your computer. Only $29.95 

Driver Cartridge for VIC 20* — Take full advantage of the capabilities of your Parallel Printer 
including full Commodore graphics and formatting. Available for SEIKOSHA, C. ITOH, OKIDATA, 
and others. Specify printer. Only $29.95 

Tymac "Connection" — A truly intelligent parallel interface for the VIC 20* and Commodore 
64* . It will make your printer operate like the COMMODORE. 
Printer including graphics, text symbols, tabs, and vir- 
tually every other printer function. Plugs into the 
serial socket. Available lor most popular 
parallel printers. $119.00 
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Watch for these upcoming issues! 

Commodore, Issue 25 (August/ 
September): A special issue on 
computers in business. Who's doing 
it and how it's helped them. 

Power/Play, Fall: Our adventure 
game special! An incisive look at mind 
bogglers like Zorkand Deadline, as 
well as Scott Adams' adventures and 
others. Look for us about mid- 
September. 



Advertising Policy 

Advertisements within this magazine 
are presented for the information of our 
readers. Acceptance of any ad does not 
constitute an endorsement by Commo- 
dore Business Machines, We stand by 
only those products manufactured by 
us. In addition, products displaying the 
"Commodore Approved" logo have been 
tested by Commodore. 

»' 



If any product advertised herein fails 
to perform as advertised, or you are 
unable to resolve a problem with an 
advertiser, please bring the matter to 
our attention. Write to Commodore 
Publishing Group, 1200 Wilson Drive, 
West Chester, PA 19380. 
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TYPRO 

DATA MANAGER & WORD PROCESSOR 

For COMMODORE 8032 Computer— 8050/4040 Dr- 



NOW AVAILABLE FOR THE COMMODORE 64 ' 

DATA MANAGER 
Number of records is only limited by your disk 
capacity. Up to 50 fields per record. Maximum of 75 
characters per field. User formatted. Screen editing. 
Sort and search feature. Pattern match search. 
Selective field printing and formatting. Form letter 
addressing. Mailing list and mailing label printing. 
Format for fanfold Rolodex and index card printing. 

WORD PROCESSOR 
Screen editing. Automatic line length set. Add, move 
or delete text. Global edit. Page numbering and titling. 
Form letter addressing. File append for printing. 

BOTH PROGRAMS ABOVE, ONLY $89.00 

* Commodore 64 is a trademark of Commodore Eiecironics. Lid 

Also for Commodore 64 and 8032 

AMORTIZATION SCHEDULE $30,00 {Disk) 

INVENTORY MANAGEMENT _$55. OO {Disk) 

All software is fully supported for updates and revisions 
for up to six months after purchase. 
Specify Computer model number and Disk model number. 



INPUT SYSTEMS, INC. 

25101 S.W. 194 Ave. Homestead, FL 33031 (305) 245-3141 
DEALER INQUIRIES INVITED. 
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VIC 20™ and 
Commodore 64™ 
expansion products 
from Micro Systems 
Development. 



A The Interbus Series. Three interfaces for the VIC 20 and 
Commodore 64: one for IEEE 488, one for RS 232 and one 
for Parallel. 

The VIE and QE are IEEE 488 interfaces for the VIC 20. 
When plugged into the expansion port, the cartridge is 
"transparent," that is, the user can still attach other peripherals 
without any interference. Devices such as 4040, 8050, 2031, 2032, 
4022 and 8023 can be controlled. The IEEE software can be called 
by using the 'SYS' command, even in the middle of a 
BASIC program. 

The V232 and C232 are serial interface cartridges which 
allow connection of various input/output devices such as printers, 
modems, plotters, etc. to VIC 20 or Commodore 64 computers. 
Features include: positive and negative voltage swings to meet full 
E1A standards, straps and jumpers to allow reconfiguration to meet 
pinouts for any RS232 device, and software selectable reconfigura- 
tion such as baud rate, parity, and duplex mode. 

The VPI and CPI are parallel interfaces for the VIC 20 and 
Commodore 64. These interfaces provide direct BASIC use of the 
parallel printer bus and give "invisible" access to the bus. The 
VPI can be used only on the VIC 20 and uses the expansion port. 
The CPI will work with both the VIC 20 and Commodore 64 and 
does not use the expansion port. The CPI also has switches for set- 
ting insertion or deletion of line feed, conversion of Commodore 
ASCII into standard ASCII or visa versa, addresses printer to device 
4, 5, 6 or 7, and allows normally unprintable Commodore characters 
to be printed in a recognizable form. 

B Expandoport Series. Expandoport 3 and Expandoport 6 are 
three- and six-slot expansion boards for the VIC 20. Each slot on 
the Expandoport 6 has a switch for controlling power to that con- 
nector. The switch allows the use of cartridges which respond to the 
same memory space. The Expandoport 6 also has a fuse and reset 
switch. The fuse prevents excessive current drain from the VIC 20 
and protects it from "shorts". The reset switch allows the user to 
'Restart' the VIC 20 without turning power off. This feature allows 
RAM, which is located in the ROM expansion area, to be protected 
during 'Restart'. 

Expandoport 4 is a four port expansion board for the 
Commodore 64. It has the same features as the Expandoport 6 and 
even allows for the use of varying width cartridges. 

C Terminal Pak Series. The VTE 40 Terminal Emulator 
(VTE 40) is a hardware and software package which converts the 
VIC 20 into a 40-column communications terminal. The VTE 40 
cartridge is complete. Various set-up parameters such as baud rate, 
parity, duplex, and bits per character can be selected through a 
'menu' format. VTE 40 features are: 40 x 25 text display, user 
definable communication specs, smooth or normal scroll, print infor- 
mation to printer or disk, generation of control codes, selective 
omission of data, continuous status line. 

The CTE/VTE Terminal Emulator (CTE/VTE) is a software 
program which converts the VIC 20 or Commodore 64 into a ter- 
minal. The user can "software select' the baud rate compatible with 
the modem used. Full upper and lower case characters are supported. 

D Audio Link. An audio cassette adapter interface for the 
VIC 20. Features include: use of regular cassette recorders, conver- 
sion of VIC 20 digital data to audio and visa versa, normal and 
inverted cassette signal, remote on/off control and control of 
external devices. 

E Monitor Link. This cable assembly allows the VIC 20 and/or 
the Commodore 64 to interface with a monitor instead of a TV. The 
Monitor Link provides separate video and audio output. This enables 
the sound output to go directly into a stereo system for unmatched 
audio quality. The Monitor Link is great for applications where a TV 
is not desired. It allows the Commodore 64 user to have high quality 
resolution on black and white monitors. 

VIC 20™ and Commodore 64"™. CBM™ and PET™ are registered trademarks of Commodore 
Business Machines. 

Expandoport. Audio link. Interbus, Terminal Pak. VRAM and Monitor-Link are copywrited by Micro 
Systems Development, Inc. 




A Interbus Series. 



B Expandoport Series. 




C Terminal Pak Series. 



D Audio Link. 




Call toll free 
for nearest dealer 

1-800-527-5285 

Lifetime warranty 
available upon 

return of Product 
warranty card 



E Monitor Link. 
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letters 



To the Editor: 

By now Neil Harris must be "primed out". (See Com- 
modore, December/January and May, 1983.) Although 
the sieve method for finding prime numbers is really fast, 
it uses array space that ends up as waste. Personally, I pre- 
fer to use what I specify in the DIM declaration in the 
program below. The problem then involves much testing 
of subsequent values. I get the shakes when I use tests 
based upon divisibility, as a quick RUN 260 in the program 
makes very clear. 

In a program such as this we like to involve as little 
testing and calculation as possible for the sake of speed. 
By generating odd numbers we reduce any divisibility test- 
ing by 2. If we generate numbers of the form 6*N+1 and 
6*N-1, we eliminate the divisibility testing by 2 and 3. 
However, as we develop algorithms to eliminate divisibility 
testing, we expand the program calculations and increase 
the time consumption. Time consumed decreases on one 
hand and increases on the other. 
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: GOTO 130 
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I have chosen a middle ground in which divisibility test- 
ing by 2, 3, 5 and 7 are eliminated by DATA increments. 
The program bashes out 1000 primes in about seven min- 

II 



utes. Moreover, it is nearly as fast as the "sieve" types writ- 
ten by Frens and Ricchezza and it doesn't require 32K to 
handle 1000 primes. My antique 8Ker is sufficient. 

Using 172 primes as criterion, Frens' sieve takes 1170 
jiffies, Riccheza's sieve takes 1172 jiffies, and the program 
below takes 1360 jiffies. The memory requirements of 
the sieves get horrible as the number of desired primes 
increases. The program is short and sweet. Is it really 
the end? 
Robert Frens 
Kenmore, New York r 



To the Editor: 

This note is an appreciation and commentary on Neil 
Harris' review of the Word Machine for the Commodore 64 
in the December/January issue of Commodore. Brief as it 
was, the review was essentially accurate and to the point. 
But there were some data he didn't have that I'll try to sup- 
ply (I wrote the program, as you probably know). 

The one minor error is that Neil implied no correction 
is possible. The truth is that limited correction is possible, 
since you can delete back to a block boundary. Therefore, 
it is usually possible to correct a simple error without editing. 

Many of Neil's comments reflect his experience with 
word processors. If there were a formal definition of "word 
processor", the Word Machine might not even qualify. The 
Word Machine was designed for simplicity. It was not de- 
signed to compete with those products in any sense, and 
was aimed at a completely different market. But it will be 
interesting to see how the intended users — word process- 
ing novices — react to the software. I've used a wide variety 
of professional products, and even for writing a book I find 
the Word Machine sufficient. 

I might also add that the reason we wrote the software 
in BASIC was to allow the user to personalize the product. 
The version on which this letter is written has my own 
letterhead built in. The program is therefore "mine" in 
at least one sense in which others I have bought are not. 
Since I use the Word and Name Machines on a 2001-32 
PET with both 2022 and 8300 printers, I have also mod- 
ified them to allow me to select a printer during initial- 
ization. That is typical of the changes a user might want 
to make that require the program to be in BASIC. 

The 1525 printer is a reasonable one for the Com- 
modore 64, but certainly can't produce copy suitable for 
manuscripts — or anything else demanding a professional 
word processor. Most of us involved in the design of the 
Word and Name Machines recognized the limitations of 

II 
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letters 



the serial hardware and designed the programs to mini- 
mize the implications of those restrictions. The people 
I know who have tried them have said, in effect, that they 
do their intended jobs better than anything else on the 
market. It's hard for me to picture a customer who is un- 
sure about which program she needed. The question will 
answer itself. No professional would use Word Machine 
and no novice will need Easy Script. The differences in 
concept and ease of use appear far more significant than 
the difference in price. 
Michael Richter 
Los Angeles, California 



maxell 



the top of the line 




at the lowest price! 



Call our Modem Hotline (anytime) - 619-268-4488 
for exclusive monthly specials. Our free catalog 
contains more than 600 fantastic values. 

ABC Data Products 

t formerly ABU ) 

8868 CLAIREMONT MESA BLVD. 
SAN DIEGO, CALIFORNIA 92123 

ORDERS ONLY ITT TELEX INFORMATION 
800-850-1555 4992217 619-268-3537 





JOIN THE 

COMPUTER 

REVOLUTION 

WITH A MASTERY 

OF THE KEYBOARD! 

In the age of the computer, everyone 
from the school child to the Chairman of 
the Board should be at home at the 
computer keyboard. Soon there will be 
a computer terminal on every desk and 
in every home. Learn how to use it right 
...and have some fun at the same time! 

Rated THE BEST educational program for the VIC 20™ 
by Creative Computing Magazine 

TYPING TUTOR PLUS WORD INVADERS -$21 .95 

(2 programs on one cassette tape for the unexpanded VIC 20™) 

Typing Tutor plus Word Invaders makes learning the keyboard easy and fun! 
Typing Tutor teaches the keyboard in easy steps. Word Invaders makes typing 
practice an entertaining game. Highly praised by customers: 

"Typing Tutor is great!". "Fantastic", "Excellent", High quality", "Asourceol 
great joy and learning for our children", "Even my little sister likes it", "Word 
Invaders is sensational! " 

Customer comment says if all . . . 

"... and it was everything you advertised it would be. In three weeks, my 13 year 
old son, who had never typed before.was typing 35 w.p.m. I had improved my 
typing speed 15 w.p.m. and my husband was able to keep up with his college 
typing class by practicing at home. " 




SPECIAL 

VERSION OF 

TYPING TUTOR 

PLUS WORD INVADERS 

NOW AVAILABLE FOR THE 

COMMODORE 64'"... g^tffij 

All of the features of the VIC 20™ Version and wore 





SPRITE 
DESIGNER 

by Dr. Lee T. Hill j 

$1 6.95 (Tape) $21 .95 (Disk) 

Create and then transform sprites automatically. We 
have the other sprite making programs, but this is the 
one we use to make sprites. The automatic transfor- 
mations are great 1 

^^^^ Shipping and handling S1.00 per 

order California residents add 6% fdjjflljh 
^^^B sales tax. VISA and Mastercard 'WKttr 
orders must include full name as shown on card, card 
number, and expiration dale. Free catalog sent with 
order and on request, 

ACADEIil" 

SOFW/1RE 

P.O. Box 9403, San Rafael, CA 94912 (41 5) 4990850 



Programmers: Write to our New Program Manager concerning any exceptional VIC 20TM or Commodore 64TM game or other program you have developed. 
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editor's notes 



Reducing Programming 
Frustrations 




We get many phone calls and letters 
from readers — especially those who 
are new to computing — who have spent 
a lot of time typing in programs that 
they then can't get to run. True, some- 
times it's our fault, although that's 
becoming less and less the case since 
Jim Gracely joined the staff. (When we 
do find out we've made a mistake, by 
the way, we always correct it. Just check 
out our "That Does Not Compute" 
department each issue.) However, many 
times the program won't run because 
it contains a typo somewhere in its 
inner recesses that for some reason, 
no matter how many times you proof- 
read it, you just don't see. And that 
"syntax error" or "illegal quantity 
error" message really starts getting 
on your nerves. 

Hopefully, Jim's article on debug- 
ging will help you figure out how to 
locate and correct those kinds of errors 
— which, as he points out, are actually 
the easiest kind to find and fix. I can 
hear some of our more frustrated typists 
out there snorting their disagreement, 
but just wait til you have to chase down 
an analytical error, elusive and annoy- 
ing as a nasty little "no-see-um" that 
turns an otherwise delightful beach 
into a morass of aggravation. 

But there's a larger point I'd like to 
make about programming — whether 
you're typing in someone else's work 
or creating your own. And that is that 
programming, like every other crea- 
tive activity, is a process that really 
doesn't have a clear-cut "right" or 
"wrong" set of answers. Most of us 
have been trained to think in terms of 
"right" and "wrong", especially when 
it comes to mathematics and science, 
so it's hard for us to grasp the idea that 
an activity like programming is open- 
ended — a form of communication, like 
writing. It just so happens that the 
communication is between you and 
the computer. (For some enlightening 



information about what your com- 
puter is "thinking" when you send it 
communicative signals, see Jeff Hand's 
article in this issue.) 

A program can be approached from 
many different directions, modified, 
improved on and played with. The im- 
portant thing is that you learn from 
your experience, for better or worse. 
If, however, you're having too many 
"worse" experiences, let me make some 
suggestions. Before you pick up your 
phone, or take your pen in hand to 
write someone a nasty letter, see if you 
can find a book to take you through 
basic programming procedures. Many 
bookstores now have a section devoted 
to computer books, from slim texts 
for beginners to fat tomes for experi- 
enced machine language programmers. 
And many of those books are written spe- 
cifically about Commodore computers. 

I'd also suggest, as I always do, that 
you join (or start) a user group. Our 
rapidly expanding list of Commodore 
user groups always appears in our mag- 
azines, which makes it easy to find a 
group in your area. Or post a notice on 
our User Bulletin Board to start one 
of your own. Some of the larger groups 
have huge libraries of public domain 
software, many have newsletters you 
can subscribe to and most have mem- 
bers with the kind of experience you 
need when you're in a bind with a 
program. When it comes to learning 
about your computer and what it can 
do, there's nothing that can beat the 
one-on-one personal contact you get 
in a user group. 

A third alternative for those who 
want to decrease their programming 
frustration is to find an independent 
computer learning center. At the mo- 
ment we don't have an official list of 
these centers, although we know many 
are using Commodore equipment. You 
may have to do a little investigating 
to find one in your area, but chances 
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editor's notes 



are good that one may be operating 
near you. 

Before I run out of space, just in 
case you skip "Commodore News" this 
time, I'd like to point out that Commo- 
dore has, finally and forever (?) moved 
to our new facility in West Chester, 
Pennsylvania, which is about ten miles 
down the road from our former quar- 
ters in Wayne. So far it's been pretty ex- 
citing to have everyone back together 
under one roof, after we were temporar- 
ily scattered over the Wayne-King of 
Prussia area. Rumor has it that our 



new building, which also houses our 
VIC 20/Commodore 64 manufacturing 
facility downstairs, has about 15 acres 
under roof. If we're now the "nerve 
center" for Commodore's North Amer- 
ican operations, you can imagine the 
size of the rest of the nervous system. 

Also, please notice that we now 
have a new Software Division, which 
is responsible for both creating soft- 
ware in-house and marketing the best 
from independent developers. You'll be 
seeing some significant support for 
your computer coming from these 



very competent and creative people. 
Watch for more news on the latest de- 
velopments in that division. It should 
be very exciting. 
— Diane LeBold 
Editor 



li- 



PIE-C 




PET/CBM * IEEE 488 

TO PARALLEL PRINTERS 

By LemData Products 



P.I.E.-C MEANS — Professional design, Indispensible features, Excellent quality and Cost effectiveness. You 
can't buy a better parallel interface for your PET/CBM. 

Our P.I.E.-C will interface your PET/CBM through the IEEE-488 bus to 

the NEC Spinwriter, the C. Itoh Starwriter, printers by Centronics, Epson, Anadex, Escon Products, the 
Paper Tigers by IDS, the MIPLOT by Watanabe, the DIP printers, the AJ-841, the OKIDATA printers, plus 
ALL OTHER parallel ASCII printers. 

Assembled with custom case, CBM-TO-ASC11 code converter and appropriate cable, the P.I.E.-C is only 
$119.95 ( + $5 S&H). Md. Res. +5% tax. Specify printer and CBM models. 

LemData Products, P.O. Box 1080, Columbia, Md. 21044 Phone (301) 730-3257 

"PET/CBM are trademarks of Commodore Business Machines 
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BeanCounter 



The BeanCounter incorporates 
inventory management, accounts 
receivable, and order processing 
functions into a Single integrated, 
on-line, sales management system. 
Ii can help you optimize your 
investment tn inventory, reduce 
your outstanding receivables, and 
fill customers' orders quickly and 
accurately. 



The system was carefully 
engineered to ensure continued 
worry-free operation; in fact, 
we guarantee it. for one full year 
Its state-of-the-art design 
allows The BeanCounter to offer 
standard features that aren't 
even optional on other systems, 
like bills of material, a mailing 



label generator, and a 
word-processor interface 



Sales Management 
System 

course, you can use your own 

pan numbers. 



Information entry and display is 
simplified through the use of screen 
"forms" [ha: visually relate to 
familiar manual systems You can 
store more information, and access 
it faster, with The BeanCounter 
than any similar system. Specific 
information can be displayed 
instantly, or you can choose 
from a comprehensive selection 
of informative, timely, reports . 

A simple set-up procedure 
automatically tailors your system to 
your business You decide how 
many inventory items, customers, 
and invoices are required, and, of 



The BeanCounter is reasonably 
priced, and as close as your 
nearest Commodore dealer 
Compare it with any similar system 
for any micro-computer — we're 
confident you'll make the 
obvious choice 



SoftWerx Inc. 
6174 Oumpool Road 
Halifax. Nova Scotia 
Canada B3L IA3 



Phone (902) 422-2001 
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COMMODORE 64~ 
American Peripherals 



GAMES 

(on tape) 

646 Pacacuda 19.95 

650 Logger 19.95 

651 Ape Craze 19.95 

652 Centropod 19.95 

653 Escape 19.95 

641 Monopoly 19.95 

642 Adventure #1 19.95 
648 Galactic Encounter 9. 
667 Yahtzee 14.95 

671 Robot Blast 14.95 
673 Moon Lander 14.95 
676 Othello 14.95 

686 Horserace-64 14.95 
692 Snake 14.95 
697 Football 14.95 

819 Backgammon 24.95 

822 Space Raider 19.95 
'846 Annihilator 19.95 

842 Zwark 19.95 

8 Mr r\ . n.n .„ j n nc 
HD Ul dVC (1UUUCI3 U.OJ 

841 Pirate Inn Adv. 22.95 

904 Shooting Gallery 14.95 

816 Dog Fight 19.95 

817 Mouse Maze 19.95 

818 Ski Run 22. 

820 Metro 22. 

823 Sub Warfare 29. 

838 Retroball 39.95 
(cartridge) 

839 Gridrunner 39.95 
(cartridge) 

825 Mine Field 13. 

672 Dragster 14.95 
662 Oregon Trail 14.95 
679 3-DTicTacToe 14.95 
655 Castle Advent. 14.95 



EDUCATIONAL 

(on tape) 

644 Type Tutor 19.95 

645 Assembly Language 
Tutor 14.95 

687 Fractional Parts 14.95 
902 Estimating Fractions 14.95 

695 Tutor Math 14.95 

870 Square Root Trainer 14.95 

699 Counting Shapes 14.95 

694 Money Addition 14.95 

689 Math Dice 14.95 
678 Speed Read 14.95 

643 Maps and Capitals 19.95 

645 Sprite Editor 19.95 

904 Sound Synthesizer Tutor 19. 

696 Diagramming 
Sentences 14.95 

690 More/Less 14.95 

688 Batting AVERAGES 14.95 
802 TicTac Math 16.95 

904 Balancing Equations 14.95 

905 Missing Letter 14.95 
864 Gradebook 15. 

810 French 1-4 80. 

811 Spanish 1-4 80. 

807 English Invaders 16.95 

809 Munchword 16.95 

812 Puss IN Boot 20. 

813 Word Factory 20. 
660 Hang-Spell 14.95 

905 Division Drill 14.95 

906 Multiplic. Drill 14.95 

907 Addition Drill 14.95 

908 Subtraction Drill 14.95 

910 Simon Says 14.95 

911 Adding Fractions 14.95 

912 Punctuation 14.95 



EDUCATIONAL 

Series on disk 

Computer Science (30 programs) S350 
HS Biology (70 programs) S500 
HS Chemistry (40 programs) $450 
HS Physics (60 programs) $475 
HS SAT Drill (60 programs) £99. 
Elem. Social Studies (18 pr.) $225 
Elem. Science (18 programs) $225 
Elem. Library Science (12 pr.) $170 
Librarians Package (4 utilities) S110 
3rd Grade Reading (20 lessons) S99. 
4th Grade Reading (20 lessons) S99. 
5th Grade Reading (20 lessons) S99. 
6th Grade Reading (20 lessons) S99. 
Spanish Teaching (12 lessons) $95. 
PARTS OF SPEECH (9 lessons) $95. 



BUSINESS 

(all on disk) 
WORD PRO 3+ 95.rin 
DATAMAN-64 data base program. 49 95 
PERSONAL FILING SYSTEM 
(index card style) 19.95 
HOME FINANCE 19.95 
CYBER FARMER $195. 
GA 1600 Accounting System 395. 
PERSONAL TAX 80. 
ACCOUNTS RECEIVABLE 22. 
New York State Payroll 89. 
MAILING LIST 24. 
Manufacturing Inventory 59. 
Stock Market Package 39. 
Finance 16.95 

Visa — Mastercharge — C.O.D. 



ORDERING BLANK 

To: American Peripherals 
122 Bangor Street 
Lindenhurst, NY 11757 

Ship to: Name 

Street 

Town, State, ZIP 



ITEM 



DESCRIPTION 



PRICE 



□ Please send your complete 64K catalog. 



CCKTimodW* M'" h m fr^Uttfttl TM of 
Commodore BuJlrwii W*chJrwi me. 



NY State Residents 
only add 7V*% tax 

Shipping 
(If COD, add 1.50) 

TOTAL AMOUNT 



$1,50 



If Canada or Mexico, add an additional S2.00 
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Ill 



news 




Commodore's new facility in West Chester, Pennsylvania, features a reflective glass facade 
that blends into the sylvan setting. Photo by Mel Crauei 

We've Moved! 

Commodore is happy to announce 
that it has officially moved into its new 
560,000 square-foot facility just outside 
West Chester, Pennsylvania — about 
ten miles from its former quarters in 
Wayne. The company had already begun 
manufacturing VIC 20's, Commodore 
64's and selected software at the West 
Chester location some months ago, 
while waiting for the office facilities to 
be remodeled. In April, when most of 
the remodeling was finished, the rest 
of the company began a gradual move 
that took about a month to complete. 

The new location is now the "nerve 
center" for the company's entire North 
American operations, and presently 
accommodates over 500 Commodore 
employees. It houses the principle U.S. 
manufacturing facility for VIC 20's and 
Commodore 64's and the major U.S. 
distribution center for all Commodore 
products. In addition, all offices for both 
Commodore Business Machines, Inc. 
and Commodore International Ltd. 
are here, as well as the newly formed 
Commodore Software Division (see 
story following), formerly located in 
King of Prussia, and the semi-conduc- 
tor system design group formerly in 
Norristown. 




Sigmund Hartmann, President of Commodore's 
new Software Division. 

Commodore Forms New 
Software Division 

Commodore recently announced 
the formation of a Commodore Soft- 
ware Division and named Sigmund 
Hartmann, formerly of TRW, Inc., pres- 
ident. The new division will develop 
and market a wide range of software for 
Commodore computers, from games 
to small business applications. 



II- 



Commodore sold more computers 
in 1982 than any other computer 
company in the world and continues 
to lead the field worldwide. Since its 
million-plus end users — many of them 
computer novices — need top quality 
software from a reliable source it 
seems only logical for Commodore to 
take on that responsibility to a greater 
degree than ever before. The new Soft- 
ware Division will help do this by 
establishing a broad base of small 
business, educational, home and rec- 
reational software to better meet the 
needs of Commodore's many (and 
varied) users, and to provide the con- 
venience of "one-stop shopping". 

Although many software products 
will be developed in-house, the com- 
pany will also continue to work with 
third-party developers by inviting 
them to become partners with Com- 
modore. The company has already 
launched a major software acquisition 
effort to contract existing quality soft- 
ware and is exploring new marketing 
techniques. 

Commodore Begins 

Shipping 

"B" Series Advanced 

Business Computer 

The much-anticipated "B" series ad- 
vanced business micros are now being 
shipped to Commodore dealers. Avail- 
able in eight different configurations, 
these new computers give you state- 
of-the-art computing capabilities at 
(as always with Commodore products) 
affordable prices. 

All the computers in the series have 
the following features in common: 

• 80-column by 25-line screen 
display 

• Separate calculator keypad for 
quick computation 

• Ten pre-defined function keys 

• A total of twenty easy-to-define 

I 



I 
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Bring thousands of dollars 
worth of information home 
for only $14.95 1 




"The best reason to buy a computer. Packed 
with useful information — it's an absolute 
must for computer owners everywhere." 
— Gary G. Reibsamen, Vice-President ol 
NewsNet Inc. 

Your passport to the electronic 
universe — how to turn any personal com- 
puter or word processor into a communica- 
tion/information machine of incredible versa- 
tility and power, even without a knowledge ot 
programming. Here's just a sampling of what 
you get — * How to select a modem and 
communications software % How to send 
electronic letters, telexes and MailGrams'" 
* Money-saving techniques for using The 
Source, Dow Jones News/Retrieval, DIALOG, 
BRS and more sfc Get free software! Down- 
load thousands of programs sfc Get privi- 
leged information tram S30.000 worth ol 
newsletters * Get discounts of 10% to 40% 
by shopping on-line * Trouble-shooter's 
guide to problem-free communications 
%z Hundreds of free computer bulletin boards 
(CBBS) * Access vast libraries (Library of 
Congress, NY. Times, magazines, and 
whole encyclopedias) * Get real-time com- 

Euter games and tournamenls * Electronic 
anking, investment management, and then 
barter * Get toll-lree numbers, valuable 
short-cut commands * Get on-line advice 
from experienced users of your equipment. 

Plus much more! In just two days you'll 
see what this unique handbook can do for 
you — but we'll give you two weeks to decide. 
Send for your copy now; if you're not satis- 
fied return it in two weeks for a lull refund. 
Main Selection of The Small Computer Book Club 
Alternate Book-of-the-Month Club Saence 
Selection 

Please return this coupon 10 your bookseller or direct to 

St. Martin's Press 

175 Film Avenue. New York, N Y 1OOI0 Ann ML CD 

Please send me .copyiiesi of The Complete Hand- 
book 0! Personal Computer Communications ci S14 95 
paperback each. Please add Si 50 per book lor postage 
and handling My check or money order is enclosed in me 

amount ol S I may examine [he book for two weeks 

and. il not 100°. satisfied. I can return .1 lor a complete 
relund 



I Address- 



I State- 

I 



-Z.p_ 
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function keys 

• BASIC 4.0 

• Expandable memory 

• IEEE-488 bus 

• RS-232C interface 

• Eight-bit user ports 

■ Integral display 

• 6509 microprocessor 

■ Direct audio output 

The features that may vary among 
the computers in the series are the 
amount of memory, body style and 
number of microprocessors. You may 
choose a computer with either I28K or 
256K memory; a high- or low-profile 
body (with or without monitor, respec- 
tively); and with or without an 8088 
and/or Z80 microprocessor. The table 
below shows the possible combinations: 




The Commodore "B' 
high profile model. 



series computer, 



Model 


Memory 


Standard 


Optional 


Monitor 






Microprocessor 


Microprocessor 




CBMX-256-80 


256 


6509. 8088 


Z80 


Yes 


CBMX-128-80 


128 


6509, 8088 


Z80 


Yes 


CBM-256-80 


256 


6509 


Z80, 8088 


Yes 


CBM-128-80 


128 


6509 


Z80, 8088 


Yes 


BX-256-80 


256 


6509, 8088 


Z80 


No 


BX-128-80 


128 


6509, 8088 


Z80 


No 


B-256-80 


256 


6509 


Z80, 8088 


No 


B-128-80 


128 


6509 


Z80, 8088 


No 



The addition of Commodore's 
Z80 microprocessor provides access 
to CP/M* software. Additionally, the 
8088 microprocessor, either built-in or 
added, provides access to both MS DOS 
and CC-CP/M-86* software. This ex- 
tended software capability opens up 
the manv excellent programs written 
for CP/M and CC-CP/M-86. 

In addition, you can customize your 
system by adding the easy-to-install 
peripherals available for the "B" series 
computers. These include Commo- 
dore's floppy disk drives and hard disk 
drives, a variety of printers, modems 
for telecomputing and monitors for 
the low-profile machines. C 



ll- 
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the arts 



The Harmonizer 



by M.D. Perry 



Use this program with your Commodore 64 to 
input multi-voice songs. Save them and play 
them again and again. You can input your own 
songs, or send $4. 00 to the author for a disk that 
contains four tunes already entered. His address 
is 264 Soledad Drive, Monterey, CA 93940. 

This user-friendly program for the Commodore 64 per- 
mits the user to input multi-voice songs using the notes 
read directly from sheet music. The user can select the 
wave form, ADSR (attack, decay, sustain, release) and high 
and low pulse (if applicable) for each voice prior to enter- 
ing the notes of the song. 

Notes are entered one voice at a time for as many 16- 
beat measures as desired (in this case a "beat" is equiva- 
lent to a sixteenth note). When all three voices have been 
brought up to the same measure, the music can be played 
back and edited. If the music is to your satisfaction at this 
point you can use the ADD option to enter more notes, or 
you can write the partial song to disk. 

Notes are entered by inputting the note, octave number 
and duration number. The following notes can be entered: 
C, C#, D, D#, E, F, F#, G, G#, A, A*, B. The duration num- 
ber represents the number of 1/16's in the note. So a half 
note is 8, a quarter note is 4, an eighth note is 2, etc. A dot- 
ted note is 1-1/2 times the normal note. Atypical entry 
might be: C#,4,2 (C-sharp, fourth octave, eighth note). 

I've included the beginning of a typical sheet music 
song at the end of this article. It indicates, for the key of C, 
the notes on the treble and bass staff and the appropriate 
entries for the computer. Note that the first measure has 
been brought up to a 16-beat count by using the letter "S" 
(silence) for the appropriate number of beats. In musical 
terms you'd call this a rest. When you use the "S", you can 
use any octave number and the duration number is the 
beat count of the rest. 

To use The Harmonizer, follow this procedure. 

Step 1: Load and run the program. 

Step 2: Press "I" to go to the initial song input mode. 

Step 3: Decide on the wave form and ADSR. For starters 
I'd suggest using 17,63,240 for voice 0; 33,16,16 
for voice 1; and 33,16,16 for voice 2. 

Step 4: You are now ready to enter notes for voice 0, the 
treble staff. Look at the sheet music and enter the 



two measures under V-0. There will be a pause af- 
ter you enter the first note (S,4,12 RETURN). Note 
that the computer keeps track of the measure for 
you. If the number is not a whole number at the 
end of the measure, you have made an error. 

Step 5: When you have entered the two measures under 
V-0, enter 0,0,0 RETURN to go to the next voice. 
Enter the two measures under V-l and again en- 
ter 0,0,0 RETURN to go to V-2. Upon completion 
of the two measures of V-2, enter 0,0,0 RETURN 
once again and you will be returned to the menu. 

Step 6: Press "P" to play the notes you have entered. Upon 
completion of the play you are offered a RECORD 
option. It is not necessary to record at this time 
since the ADD option on the menu lets you return 
to where you left off entering the song. 

If you make an error while entering the number of beats 
in voices 1 and 2 so you end up out of sync with voice 
0, the computer will recognize the error when you attempt 
to leave that voice and will inform you of the error. You 
will then be returned to voice to start the last series over. 
This can be helpful if you realize you entered a wrong note 
(pitch and/or octave) after you have already gone on to an- 
other. You can then go immediately to the next voice and 
intentionally make an unbalanced beat entry, which will 
return you to voice to start the series over so you can 
make your note correction. Please notice that, because 
you have to go back to the beginning of the series to make 
a correction, it's to your advantage to enter only a few 
measures at a time. 

After you have successfully completed a series of en- 
tries and have returned to the menu, you may realize you 
have entered a bad note. At that time you can use the "N" 
option to enter the note array and total beat number for 
correction in any voice. Follow the prompts from the 
computer to overwrite any note. But do not change the 
duration number or you will be encroaching on the next 
note. However, it is possible to start at the beginning of 
a measure and rewrite the measure one note at a time. 
After each correction you are returned to the menu. 

During entry of song notes it is possible to change 
the wave form of all voices, although it is not possible to 
change the ADSR at that time. To change the wave forms, 
complete a note series and go to the menu. Press "C" and 
enter the new wave forms. But make sure you keep track of 
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the measure number where the change was made, because 
after you've entered and recorded the song you can use the 
IF statements in lines 543-44 to change the other param- 
eters (I = 16 times the measure number). Don't forget 
to delete the REM at the start of each of those two lines. C 



N0TE V"ri^U L ^|J-^)|cJ-ie|o- UL Mi6)| 



J DO 



DOTTED _L(|?) 



rests: 



(8) I f- j(4}\-f -£(2) 



B 5 




1* 



£ 



G 5 



E 5 



C 5 



A 4 



D 4 



B 3 



G 3 



E 3 



C 3 



A 2 



F 2 



■A 5 

■ F 5 
■D E 
■64 

■ G4 
■E4 
>C 4 
■A3 
■F3 
• D Z 
■B2 
■3 2 
■E2 



M-l 



M-2- 



^TJ 



8,4,12 



0,4,2 
3*4,2 



E,4, 2 
C,5,4 

♦ 

Ej4»2 
C,5,4 

E,4,4 



zu 



5,4,16 



C. 3,4 
I 

C,3,4 



1 



tf,M 



J_ 



t-A#»BJ> 



iLz£ 



S, 4,16 



S,4,4 

E, 3,4 

\ 

S,4,4 

E.3,4 
_t_ 



4 
6 
8 
10 
12 
14 
16 
2 
4 
6 

8 
10 
12 
14 
IB 



5 REM : THE HRRMONIZER. -'MULTIPLE VOICES 


'BS 


1 COMMODORE, 


MODIFIED BY M.D.PERRV 


10 


PQKE53280>6 : POKE53231, 1 : PRINT"rS" 








15 


S=D^272 : F0RL=ST0S+24 : POKEL, 8 : NEXT 








20 


DIMHJi(2j 1880), LMC2, 1090), C^<2, 1900) 








36 


DIMFQ<il):Z«0 








60 


FORR=0TO1 1 : RERDFQ(fl) : NEXT 








70 


pr i nt " ^m&mm$mn$$mm*EWJ " 








"70 

1 c 


PRINT")»WaiWPUT NOTES OF SONG" 








74 


PRINT")»ll8RKflD SONG PROM DISC" 








77 


PRINT"Wtli3M13TE CORRECTION RFTER INF 


UT" 






78 


PRINT n J*MSC»flNGE WRVE FORM DURING Z 


ONG 


INPUT" 




73 


PRINT"jS3*ia33BD NOTES TO SONG" : PRINT" 


55|j»;PHj _3V OP RJ: 


PLRV SONG" 


80 


GETR* : IFR$=" " THEN88 








q2 


IFfl*="I"THEN100 








84 


IFR$=" R " THENGOSUB650 : GOTO70 
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35 


[ FR$= " C " THEHZ= 1 ■ DOSUB 1 80 : G0T078 


86 


[FR*="H"THENZ=3 : GOTO750 


87 


[FR$="fl"THENZ=2 ■ I=IM : D=IM : GOTO 1 10 


88 


[Ffl*="P"THEN98 


89 t 


3OTQ70 


90 ] 


[FIMO0THEN500 


91 G0T038 


108 


FGRK=0TO2 


101 


PRINT" EBKIHPflRflMETERS FOR VOICE"K"RRE NOW= W/F-"V(K>"j fl/Ti-'TKIO" >S/R-"RCK) 


102 


IFZ=1THENPRINT B J»IENTER NEW W/F FOR VOICE #"K" : " : GOTO 104 


133 


PRINT"3»iENTER PARAMETERS FOR VOICE #"K":" 


104 


J. KPUT " BWW/F -17, 33 .. 65 ) " ; V < K > 


105 


IFZ=1THENNEXT : Z=0 : RETURN 


106 


IFV<K)aS5THENINPUT")ff»HI PULSE<0-15) " ; HP(K) : INPUT "}»M_0 PULSE 1 : 0-255 > " i LPCK) 


107 


INPUT " SWtR/B ( 0T0255 ) " ; D < K ) 


108 


INPUT ")»ilS/R<0TO255) " ; R(K) 


103 


NEXT 


lie 


F0RK=9T02 : IFZ=2THENI=D : GOTO 1 1 2 


in 


1=0 -D=0 


112 


PRINT "UIHWIiNOICE # B K" ENTER NOTES" 


115 


PR I NT "CENTER '0' TO GO TO NEXT VOICE" 


119 


IFZ=3THENZ=0 : GOTO70 


120 


GOSUB800 


121 


IFK=2flNIiT = IMTMSNl!=I?1 


1 00 


IFNM=0RNDK<>0RNDIOINTNENPRINT"rM»*»ERROR IN ENTRV. REDO LAST SERIES" 


123 


I FNi1=0PNDKO3RND I O I MTHEN I=B : I M=B : FORT= 1 TO2S00 ■ NEXT : GOTO 1 10 


124 


IFNM«8THEN25@ 


135 


B=I/16 


140 


Wfl*V<IO : IFNM<0THENNM=-NM:NR=1 


150 


W.y.~H\1/ 1 23 " OCtf = (NM-l 28*BRM ) / 1 6 


160 


KT=NN- 1 28*DR&-16*0C2 


170 


FR=FQ<NT) 


180 


IFOC?i*7THEN200 


190 


FORJ=6TOOCXSTEP-l : FR=FR/2 : NEXT 


200 


HF';=FR/256 ■ LFX=FR-HFfi#256 


21 


IFBRX=1THENHXCK, DsHFJi^LMCKj D=LFK : C5i<K J I)=Wfi: 1=1+1 :C=I/1S 


£. 1 i 


IFDR?i=lTHENPRINT"r>MWMiiil*litllil!1EflSURE"B"T0"C:G0T0il9 


220 


FORJ=lTOBRK-l:HJi(K^I)=HFJi:LKCK^I)=LFX : C?iCK..D=Wfi: 1=1+1 =NEXT 


230 


H5i(K.D=HF?i:LK<K.I)=LF?i:C%<K*I>=Wfl-l 


240 


1=1+1 :C=l/lS : PRINT ,, niili|WilMiiHitM l 1EflSURE n B"T0"C : G0T0n9 


250 


i 1 !\ — tJ i H!_' 1 ,U :— J. . 


260 


NEXT : Z-P : GOTQ78 


300 


POKES+Sj D(0> : POKES+6, R<0) 


510 


POKES+ 1 2 , S ( 1 ) : POKES+ 1 3. R< 1 > : P0KES+ 1 3 , 30 
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520 


POKES* 1 9 , D ( 2 ) : POKES+20 ; R ( 2 ) 


521 


PQKES+2; LP(0) : PQKES+3; HP<0> 


C--I-- 


POKES+9 .. LP I 1 ) : P0KES+ 1 .- HP C 1 ) 


523 


P0KE5+16; LP<2) : PQKES+17; MPC2) 


530 


POKES+24, 15 


540 


FORI=0TOIM 


541 


REM-USE LINES 543-544 TO CHRNGE R/D & 3/R DURING SONG T BE COMPATIBLE i4I T H 


542 


REM- THE 1J/F CHRNGE ^RDE DURING INPUT. 'I' WILL BE 16#<MER5URE #> 


543 


REM : I F I = ? THENPOKES+5 .. ? : POKES+G .< ? : POKES+ I2j ?'• POKES+ 13; " : ' 


544 


REM ^ IF I = ?THENP0KES+19j ?•" POKES+20; ? : R£M-V0U CRN CHRNGE PULSES TO IF RPPR 


cerrt 


POKES; L"-(0. I> : P0KES+7>LJi< 1*1) : P0KES+I4; L5i<2; I • 


560 


POKES+1jHM<0; I) : P0KES+3.. H^<i = 1) :P0KES+15;HfiC2; D 


570 


POKES+4;CK<0;I>:POKES+il;CJi<l;I):POK£S+18 J C?J(2*D 


530 


NEXTI 


589 


PRINT'TMIWDO VOU WISH to WRITE 'HE 30N0 "TO DISC? V/N " 


530 


GETR$ : I Ffl$- " " THEN5S0 


•JJe. 


IFR$=" V" THENGOSUB700 : G0T078 


599 


OOTO70 


603 


DRTR34334, 36375.. 38539.. 40830 


618 


nftTWWifi dSft^fl dft'ws =^i^.-i'"! 


620 


BATR54502; 57743, 61 176, 6481«* 


65S 


jdcm RgftD TO DISC 


653 


r-'-'UT'TMSSS^RME OF SONG ".; MO* 


655 


X$="; " 


668 


0PEN2; R.' 2 . "@0 : "+NS$+" ■ S; R" 


665 


Tijo; [T^O TW 


670 


FORK=0TO2 : INPUT#2*V<K)*D(K);R<K>;LPCK);HP(;K) : NEXT 


675 


FORT=lTOIM:FORK=0TO2 : IK-"JTii2,H:;<!<., I>,L5i<K;I);C%(K/I> : NEXT: NEXT 


630 


f - ! QSF2 : "-" r ! IRN 


700 


REM WRITE T DISC 


702 


V*— 'i (' 

!"*!■!■ J 


703 


INPUT "3J&MWAME OP SONG";NS$ 


795 


0PEN2 ; 3 .. 2 .. " 80 : " +NS$+ " .. S > W " 


71S 


PRINT#2; !'"• 


715 


FORK=0TO2 : PR T NT#2 .- '•■' '•' K ) K$B '' K ) X$R ( K ) ^$LP '' K ) K$HP < K ) : NEXT 


JOtk 


FORI=lTOIM-'FORK S! 0TO2:PRINT#2;HJiCK J DKJL/i(K ; I)X$C?i<K; I> : NEXT : NEK 1 " 


-?.-iC- 


CLQSE2 : RETURN 


753 


REM CHANGE NOTE & OCTAVE 


755 


PRINT"rWK*in"HIS SU3-PR0GRRM PERMITS VOU TO CHRNGE A w 0TE LETTER AND OCTAVE. " 


763 


PRTNT">Tr?*T^.'" , 'ER VOIOE'9, '. , OR ZV'j-'INPUTK 


762 


TFV^?THFMPJ?TNT"*1 ' T T V - RftTD7fiR 


765 


PRIHT"SMICOUNT MEASURES BEFORE ""HE ONE VOU WISH TO CHANGE* 


778 


j MPUT " J&1ENTER T: -' 1 NUMBER " ; E 


-7-JC 


PRINT N KMCOUNT BERTS IN MEASURE BEFORE THE NOTE TO BE CHANGED" 



li 
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789 
?85 

790 
795 

880 

391 
SS2 
805 
810 

1315 
820 

325 
830 
835 
837 
840 

850 
855 

865 



t upi iy ir wfekfrMTcp s ,; 'M13PP or Titfrcj' 7 "'-" ■ it ■ 
PRINT tt )3ftENTER NEW NOTE j OCT* DI'R '■' 

ryQMnr- ~.s~ rj| :^^»T "f'N SV 
I HPUT " RMS" ; l ;n .£ ,< HO j NTJ 

IHPUT"*&f^O,D";HP$.,WO,Nl! 
IFNP$= " 8 " THEf JMM=3 : RETURN 
t<tmp* = ii g ii THENHM = - j 283f£NIJ : PETI "- " ■' 
t FHP$= " C " THENNP=0 
j p(.jp# = ii ^# " THENKP = 1 

T CVJD J = H f| N T L,"rMUp- , ! ; ' 

t pkjp* = " pa '■ THENNP S 3 
j FNP$= "E"THENNP=4 
T fup$=" r " THENHP-5 
j PNf>$= " rjj " THENNP S 6 
t PMp$s i»ft " THENNP=7 
t c.Mp-f— ii fi* ii TWFMMPsfl 

IFNP**"fl"THENNP=9 
t FNP* = " R#" THENNP= 1 

jr , l..jp 1 ±- ;= n -p>n Trjr-^ rp. irtj-^ } 

jjm= 1 28#ND+ 1 6&N0+MP 
RETURN 



r=i 5*P+F 
- ftin Mi" 7 



A Giant Step 

for the computerist 

the PRnmguEEn 

Opens up the world of modern elec- 
tronics. Now - a complete microde- 
velopment system in a cartridge using 
the Commodore VIC-20, You get 
HEXKIT 1 .0 for general purpose 8 bit 
microprocessor software develop- 
ment, a 4K ROM emulator for testing 
program in circuits under develop- 
ment plus an EPROM programmer 
for making hard copy of programs. 
All-in-one cartridge &^ *±**nn 
with 100 page ^IQlJUU 

tutorial manual. Iww 

Arbutus Total Soft. Inc., 4202 Meridian, 
Suite 214. Bellingham. WA 96226. Phone 
800-426-1253, in Washington 206-733-0404 
Distributed in Canada ay IBC Distribution 
Canada, 4047 Cambie St Vancouver. BC 
V5Z 2X9. Phone 604-879-7812 



3* 



PBDCnQLIEEU 



^ m 




Your 

Commodore 64 

Deserves 

An Assistant 

• The Personal 

Finance Assistant ... $ 59,95 

• The Spreadsheet 
Assistant $125.00 

• The Writer's 

Assistant $125.00 

• The Filing 

Assistant $125.00 




RAINBOW 

COMPUTER 

CORPORATION 



490 Lancaster Avenue 
Frazer, PA 19355 (215)296-3474 
Dealer Inquiries Invited 




COMMODORE: THE MICROCOMPUTER MAGAZINE June/July 1983 21 



BUSICALC 



BOSICALC A Honey of an Electronic Spreadsheet 

Why electronic spreadsheet programs? 

Electronic spreadsheet programs allow the user to create a gridsheet, 
spreadsheet, worksheet, or any other table of information, using the 
memory of the computer as pencil and paper. The computer display or 
terminal acts as a window through which the user views the information 
as it is entered. Textual information (such as headings), numerical values, 
and formulas can easily be entered into the spreadsheet. 






For Commodore 64™ 

For Commodore VIC 20™ 

For Commodore PET®/CBM™ 40 columns 

For Commodore CBM 80 column/SuperPet™ 

BOSICALC Your Computer Drone for Repetitive Calculations 

The outstanding advantage of using a computer is that it acts not only 
as a pencil and paper but as a perfect eraser and an automatic calculator. 
The user can quickly and easily make any number of alterations to the 
data within the table. The BUSICALC will evaluate any formula using the 
data that has been entered. Further, it retains the formulas and displays 
the resulting value. With BUSICALC controlling the entry of data, provid- 
ing a comprehensive memory, and performing arithmetic, the preparation 
of a spreadsheet is faster and more accurate than if it were prepared 
by hand. 

BUSICALC With the Sting Removed from the Prices 

BUSICALC 20 only $49.00 for the VIC 20 

BUSICALC 64 only $69.00 forthe CBM 64 

BUSICALC 40 only $79.00 for the original 40 column PET/CBM 

BUSICALC 80 only $89.00 for the original 80 column CBMs and SuperPets 




BUSICALC AVAILABLE NOW FROM YOUR LOCAL DEALER 

(800) 227-9998 
FOR THE NAME OF YOUR NEAREST DEALER 

California, Canada, Alaska and Hawaii please call (415) 965-1735 




I 



Skvles Electric Works 

231G South Whisman Road 
Mountain View. CA 94041 
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Advanced Bit-Mapped Graphics 
on the Commodore 64 

Parti 



by Frank Covitz 



Create bit-mapped graphics in record time with Frank's machine code 
approach to programming the Video Interface Controller on the Commodore 64. 



In this article, we are going to ex- 
plore in detail high resolution graphics 
on the Commodore 64. The amazing 
VIC II (Video Interface Controller), in 
addition to its various character and 
sprite modes, has a mode called bit- 
mapped, which gives us the complete 
flexibility to control the state of each 
pixel in a 320 by 200 array. In princi- 
ple, this is a very easy mode to under- 
stand, since for each zero bit in the 
memory, the corresponding pixel on 
the screen takes on the background 
color, and for each one bit, the pixel 
takes on the foreground color. But to 
gain this flexibility, we take on a corre- 
sponding level of responsibility; that 
is, we have to control the state of each 
of the 64000 bits. 

We will take on two principle tasks 
in graphics: first how to turn on or off 
any individual pixel, given its X and Y 
coordinates; and second, how to draw 
a straight line between any pair of X,Y 
coordinates. 

As a secondary, but also important, 
goal, we would also like to have these 
routines be fast. The need for speed 
will become obvious when we discuss 
the graphics algorithms, but for now 
you will have to resign yourself to ac- 
cepting the idea that we will be devel- 
oping machine language routines to 
do the work. We will try to make this 
as painless as possible by giving the 
corresponding algorithms in BASIC 
as well. 

Finally, to relieve the pain we will 
link the machine language routines 
to BASIC so they can be used within 

II 



BASIC'S more friendly programming 
environment. Note that what we will 
finally put together is the start of a 
graphic programming language, and 
not a stand-alone interactive graphics 
program. 

In considering how to accomplish 
a complex task, it is usually desirable, 
if possible, to break up the task into 
smaller, easier to handle segments. So 
before jumping in head first, let's out- 
line our objectives in specific steps. 

1. Gain access to the bit-mapped 
mode. 

2. Clear the screen to the background 
color. 

3. Given an X-Y coordinate pair, turn 
the corresponding pixel off or on. 

4. Given two sets of X-Y coordinates, 
draw the best straight line between 
them. 

5. Link the graphic routines so they 
are easy to call from BASIC. 

6. Provide a clean return to normal 
BASIC, even if an error is made. 

To be sure we are talking the same 
language, let's discuss some of the 
terms we have been throwing around. 
In its normal character mode, the 
Commodore 64 displays characters in 
a 40-column by 25-row format. Since 
40 times 25 equals 1000, 1000 memory 
locations are needed to represent the 
screen. You probably are already aware 
that these locations are normally 
found at addresses 1024-2023 decimal 
(S0400-$07E7). 

In bit-mapped mode, pixels are dis- 
played in a 320 by 200 format, giving 
64000 pixels total. That means we need 



8000 memory locations, since each 
memory location can hold one byte, 
which in turn is made up of eight bits. 
Since each bit in this memory controls 
the state of one pixel on the screen, it 
is convenient to call it bit-mapped. 

So, for example, if we knew the 
address of a location within the range 
of the bit-mapped memory, we could 
turn on eight pixels by POKEing a 255 
($FF) into it. Because of the way this 
memory is scanned by the VIC chip, 
this set of eight bits appears as a short 
horizontal line on the screen. If we had 
POKEd in a 1, 2, 4, 8, 16, 32, 64, or 128 
($01,$02,$04,$08,S10,$20,$40, or $80) 
we would see an individual pixel. 

You've probably noticed that many 
times when I've given you a decimal 
number, I've also given the corre- 
sponding hexadecimal number in 
parentheses. The hexadecimal (hex 
for short) numbers are preceded by 
a dollar symbol. It will be extremely 
helpful to you, and easier once you 
get the hang of it, to follow the hex 
representations. 

"OK, OK, I follow you so far, so 
where is this bit-mapped memory 
already?" you are probably saying. To 
which I say, "Not so fast, not so fast, 
we first have to understand a bit more 
about the VIC chip." Actually you don't 
really need to understand all the de- 
tails to be able to use the routines in 
this article, just as you don't have to 
understand in detail how the BASIC 
interpreter works to program in BASIC. 
But read on; hopefully you will learn 
some facts and techniques that will 

II 
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definitely be useful for other tasks. 
So, a bit of digression before we 
can even get to step one of our outline. 
Step zero is a general understanding of 
how the VIC chip works. The VIC chip 
can "see" 16K bytes of memory at a 
time in the same sense that the micro- 
processor can "see" 64K bytes of 
memory. The chip, in fact, can see four 
"banks" of 16K each (see Figure 1), and 
the bank it sees is determined by two 
bits of a register in one of the Commo- 
dore 64's internal I/O chips. The ad- 
dress of this register is 56576 (SDDOO), 
and the least significant two bits (bits 
and 1) control the VIC chip bank. The 
other six bits have to do with the serial 
bus and the RS-232 port, which we 
shouldn't disturb. The following table 
gives the details on the VIC chip banks. 



(The xxxxxx means "please do not 
disturb".) 

Let's call these four possibilities 
banks 0,1,2, and 3, respectively, and 
try to decide which is the best place 
to put the bit-mapped memory for the 
VIC chip to use. Banks 2 and 3 nor- 
mally contain the BASIC interpreter, 
I/O locations, and the Kernal operat- 
ing system, so for now we'll stay away 
from them. Bank is the one used 
when you turn the Commodore 64 on, 
and we could, in fact, use this bank for 
bit-mapped graphics. However, since 
BASIC programs normally start using 
memory at location 2049 ($0801) and ex- 
pand toward higher memory, we really 
should avoid bank also (although I 
actually did use bank in my first trials 
of high resolution graphics). 



This leaves us with a grand total 
of one bank as the easiest to use for 
high-resolution graphics, and it gives 
BASIC a lot of room to "breathe". 
(NOTE: Bank 2 RAM could actually 
be used underneath BASIC but that 
would cause a bit of extra complexity 
that we don't need yet.) 

We are now ready for step one. How 
do we get VIC to look at bank 1? Easy, 
just do the following in BASIC (DON'T 
ACTUALLY DO IT YET!!): 

1C POKE 56576, (PEEK 
(56576) AND 252 OR 2) 

In machine language, this is equiv- 
alent to: 



LDA SDDOO 



(get the byte that's 
there) 



When bits at 56576 (SDDOO) are 

xxxxxxll 
xxxxxxlO 
xxxxxxOl 

xxxxxxOO 



the VIC chip sees this range of RAM memory 

0-16383 (S0000-$3FFF) Bank 

16384-32767 (S4000-S7FFF) Bank 1 

32768-49151 ($8000-$BFFF) Bank 2 

49152-65535 (SC000-SFFFF) Bank 3 



Figure 1. Commodore 64 Memory Map 



BASIC Programs 
start here (S800) 




S000O 



S4000 



S8000 



64K RAM 



SCOOO 



i 



VIC chip accesses one of the four Banks of RAM 
for hi-res and foreground/background color 
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AND#$FC 



ORA #$02 
STASDD00 



(set bits 0,1 to with- 
out touching the other 
bits) 

(set bit Ion) 
(VIC nows sees 
$4000-$7FFF) 



If we had done this, the VIC chip 
would be scanning bank 1, and we 
would have a screen full of garbage! 
(If you actually tried this, you can get 
back to normal by holding down the 
STOP key and hitting RESTORE). 
There's obviously more to do. Actually, 
two more locations have to be taken 
care of to get us settled, both located 
within the VIC chip. Since the VIC 
chip has 47 internal registers in all, 
and we are only going to diddle two of 
them, this really isn't too much to ask. 
The easiest one to deal with is the con- 
trol register located at address 53265 
(SD011). In it, bit five controls whether 
we are in bit-mapped mode. A zero 
here means character mode, and a one 
means bit-mapped mode. The other 
bits must be left alone for now. So in 
BASIC we do: 

20 POKE 53265, PEEK 
(53265) OR 32 

In machine language this is just: 



LDA $D011 
ORA #$20 
STA$D011 



(get what's there) 
(turn on bit 5) 
(we're now in bit- 
mapped mode) 



The other register we need to set 
up is the memory pointer register lo- 
cated at 53272 ($D018). When we're in 
character mode (the normal one) the 
high order four bits (if eight bits are a 
byte, then four bits must be a nybble, 
and two bits should be a nyp, right?) 
control in which of sixteen IK blocks 
the video matrix (the screen) is to be, 
while the low order nybble determines 
where the character base is (where the 

II 



VIC chip picks up the data that form 
the character). 

In bit-mapped mode, these nybbles 
are used also, but in a different sense. 
The high order nybble still forms a 
base address for a IK piece of memory, 
but this memory is no longer used to 
hold character codes; instead it is used 
to set the foreground and background 
color for pieces of the bit-mapped 
memory (more on this later). 

Bit 3 (the most significant bit of 
the lower nybble) is used to determine 
which half of the 16K memory bank 
(remember we selected bank 1) that 
the VIC chip displays as a bit-map. For 
our memory scheme, we will use the 
higher half of bank 1 for the 8000 byte 
high-resolution screen, so we set this 
bit to a one; the address of the start of 
the bit-mapped screen is now defined 
as 24576 ($6000). We want to put the 
IK piece of memory close to this (and 
still in bank 1), so let's go IK lower to 
23552 ($5C00). This is the eighth IK 
block in bank 1, so the high nybble 
of the memory pointer register must 
contain a seven, right? (Remember, 
a zero would give us the first block, 
a one the second block, etc.) 

We are now ready ... In BASIC: 

3 POKE 53 27 2, PEEK 
(53272) AND 7 OR 120 

In machine language: 

LDA $D018 (get what's there) 
AND #$07 (wipe bits 7-3) 
ORA #$78 (upper nybble =7, 
lower nybble =8) 
STA $D018 (simple, wasn't it) 

To summarize: in step one we 
set the VIC chip to bank 1, turned on 
the bit-mapped mode, and fixed the 
address of both the start of the bit-map 
and of the corresponding foreground/ 
background memory. 

The key addresses so far are: 

II 



CBM/PET INTERFACES 

The Connecting Links 

CmC provides the link to increase 
your computer's functional ability. 
The following models come 
complete with case and cables and 
have a 30 day money back trial 
period. 

PRINTER ADAPTERS 

— addressable-switch selectable 
upper/lower, lower/uppercase 

— works with BASIC, WORDPRO, 
VISICALC and other software 

— IEEE card edge connector for 
connecting disks and other 
peripherals to the PET 

— power from printer unless 
otherwise noted 

RS-232 SERIAL ADAPTER — 

baud rates to 9600 — power supply 

included 

MODEL-ADA1450a $149.00 

CENTRONICS/NEC PARALLEL 
ADAPTER — Cenlronics 36 pin 
ribbon connector 

MODEL-ADA1600 $129.00 

CENTRONICS 730/737/739 
PARALLEL ADAPTER —40 pin 
card edge connector 

MODEL-ADA730 S1 29.00 

EPSON MX -70 PARALLEL 
ADAPTER — handles graphics — 
BASIC 4.0 required 
MODEL-ADAX70 $129.00 

COMMUNICATIONS ADAPTER — 

serial & parallel ports — true ASCII 
conversion — baud rates to 9600 — 
half or full duplex — X-ON, X-OFF — 
selectable carriage return delay — 
32 character buffer — Centronics 
compatible — power supply 
included 

MODEL-SADI $295.00 

ANALOG TO DIGITAL 
CONVERTER — 16 channels — 
to 5.12 volt input voltage range 

— resolution 20 millivolts per 
count — conversion time less than 
100 microseconds per channel 
MODEL-PETSET1 S295.00 

US Dollars Quoted 
$5.00 Shipping & Handling 
MASTERCHARGE/ViSA 
All prices & specifications subject to 
change without notice 
MENTION THIS MAGAZINE 
WITH ORDER AND DEDUCT 
5% FROM TOTAL 

IN THE USA order from: 

Connecticut microcomputer. Inc. 

Instrument Division 

36 Del Mar Drive 

Brookfield, CT 06804 

203-775-4595 TWX: 710 456-0052 
IN CANADA order from: 

Batteries Included, Ltd. 

71 McCaul Street 

F6 Toronto, Canada M5T2X1 

(416)596-1405 

Dealer Inquiries Invited 
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bank register 56576 

($DDOO) 
memory pointer register 53272 

($D018) 
control register 53265 

($D0U) 
start of bit-map 24576 

($6000) 
foreground/background 23552 

($5C00) 

Before rushing into step two, we 
need to understand the way the bit-map 
addresses get displayed on the screen. 
Turn on your Commodore 64 and put 
the cursor to the "home" position (or 
refer to Figure 2). The blinking cursor 
is now covering the first eight bytes 
(bytes 0-7) of what will be seen in bit- 
mapped mode. Byte is the top-most 
line of the eight short "lines" that 
form the cursor. The highest order bit 



of byte is the left-most pixel of that 
line, which would be set by POKEing 
a 128 ($80) there. Now space the 
cursor one position to the right. It 
now covers bytes 8-15 of what will be 
seen in the bit-mapped mode. Get the 
picture? Now, home the cursor and go 
down one. We are now, covering bytes 
320-327, right? (since 320 is just eight 
bytes per character times 40 characters 
per line). If you understand this you 
are all set. 

What about the foreground/back- 
ground business? Put the cursor back 
to home position. Again, this corre- 
sponds to the first eight bytes of the 
bit-map memory. Within this group 
of bytes the color of the "on" and "off" 
bits will be controlled by the first byte 
in the IK memory that used to be where 
characters went, but which is now our 
foreground/background memory (the 



Figure 2. Memory Map for Hi-Res Screen 



one we set to start at 23552 ($5C00) ). 
The color of all "on" (foreground) bits 
within this square are determined by 
the high nybble of the byte in 23552 
($5C00) and, you guessed it, the lower 
nybble controls the color of the "off" 
(background) bits. The colors you get 
correspond to the ones tabulated in 
your owner's manual, and are 
reproduced below: 



•HOME' 
POSITION 

\ 



COLUMN 




COLUMN 
1 



COLUMN 
2 



Nybble 


Color 


($0) 


Black 


1 ($1) 


White 


2 ($2) 


Red 


3 ($3) 


Cyan 


4 ($4) 


Purple 


5 ($5) 


Green 


6 ($6) 


Blue 


7 ($7) 


Yellow 


8 ($8) 


Orange 


9 ($9) 


Brown 


10 (SA) 


Light red 


11 (SB) 


Dark grey 


12 (SC) 


Medium grey 


13 (SD) 


Light green 


14 (SE) 


Light blue 


15 ($F) 


Light grey 




10 

11 

12 
13 

14 
15 



16 
17 
18 
19 
20 
21 
22 
23 



Row 

1 



320 
321 
322 
323 
324 
325 
326 
327 



328 
329 
330 
331 
332 
333 
334 
335 



336 

337 

338 

339 • 

340 

341 

342 

343 



Row 
2 



640 
641 
642 
643 
644 
645 
646 
647 



648 



In bit-map mode, the ability to con- 
trol the color within individual eight 
by eight bit regions is not too useful 
(at least I haven't found a good use for 
it), but it has to be taken care 
of to give us at least a uniform back- 
ground and foreground color. So, for 
the start of step one, we do the follow- 
ing in BASIC: 

40 FOR 1=23552 TO 

23552+999:POKE 

I,80:NEXT I 

This gives a green foreground color 
(5*16=80) and a black background (0) 
to the entire bit-map. Of course, you 
can pick your own combination, but 
this is a good one if you are using, 
like me, a black-and-white monitor 
(Shocking, isn't it!). In machine code, 
we do: 

II 



26 COMMODORE: THE MICROCOMPUTER MAGAZINE June/July 1983 



SETCOLLDA#$50 
LDX #$00 



(set green 
on black) 
(initialize X 
to zero) 

SETCL1 STA $5C00,X (do 1st 3 
pages) 
STA$5D00,X 
STA$5E00,X 
DEX 
BNE SETCL1 (keep going 

for 768 bytes) 
LDX #$D8 (do last 232 
bytes) 
SETCL2STA$5EFF,X 
DEX 

BNE SETCL2 

RTS (done (leav- 

ing 

X-0)) 
(I hope the little trick at SETCL2 
is clear.) 

Next, we clear all 8000 bytes of the 
bit-map memory to the background 
color (all zeros) in BASIC: 

50 FOR 1-24576 TO 
24576+7999:POKE 
I,0:NEXT I 

Note that there are 8000 bytes visible 
in bit-map mode, not 8K (8192). As far 
as I am aware, the last 192 bytes are 
not used or affected in any way by the 
VIC chip or BASIC, and should there- 
fore be quite safe to use for purposes 
other than graphics. In machine code, 
it would be easier to clear all 8192 
bytes, but let's be purists and clear 
only the visible 8000 bytes. 

The bit-map clear routine for the 
8000 bytes in machine code goes 
as follows: 



CLRHR LDA#S7F 



STASFE 



(we're going 
to clear it 
backwards) 
(SFD and $FE 
are safe to use 
as an indirect 
pointer) 



LDA#$00 (A will contain 
a zero from 
now on) 

STA SFD (($FD,SFE) 

now points to 
first byte of 
last page of 
bit-map) 

TAY (sets Y=0 

for straight 
indirect) 

STA ($FD),Y (this single 

location needs 
to be cleared 
separately) 

LDY#$3F (this is the 

offset to reach 
the last visible 
byte) 

LDX #$20 (32 pages are 
involved) 
CLRHR1 STA ($FD),Y (clear a byte) 

DEY (next one) 

BNECLRHR1 (go until 
Y=0) 

DEC $FE (then go to 
next page) 

DEX (X keeps track 

of total pages) 

BNE CLRHR1 (go until all 
8000 bytes 
are cleared) 

RTS (done, leaving 

X=Y=0) 

Since one of the main reasons 
for going to machine code is to gain 
speed, the above coding was optimized 
for speed, and that's the reason for the 
somewhat less-than-straightforward 
code. The 8000 bytes are cleared in less 
than .1 second. 

Everything to this point has been 
really just a preamble to what follows. 
We are now ready to figure out how to 
achieve step three. That is, given an 
XY coordinate pair, where X is in the 
range 0-319 (S0000-S013F) and Y is in 
the range 0-199 ($00-$C7), how do we 
access that individual pixel? What 



we need is a subroutine which, when 
given X and Y, returns the address 
within the bit-map and the data to be 
POKEd there. 

The easiest to figure out is the bit 
number to be turned on. Since each 
step in the X direction moves us over 
one bit and there are eight bits in a 
byte, the bit number is just the re- 
mainder when X is divided by eight. 
Because eight is an integer power of 
two, this is simply accomplished by 
ANDing X with seven. (This isolates 
the lowest three bits of X.) The result is 
not quite right since, for example, if X 
were zero, the bit number would be 
zero. This would be the rightmost bit 
in a given bit-map byte, but since we 
want our X's to go from left to right as 
X increases, we have to correct this by 
taking the 'eights complement'. All 
this means is that we have to subtract 
the result of our AND procedure from 
seven. So, we would have in BASIC: 
BIT= 7- (X AND 7). Is this the number 
to be POKEd into the bit-map to turn 
on a single pixel? Nope, the correct num- 
ber is two raised to the BIT power. OK? 

Now the big question is which ad- 
dress to POKE into. First, let's agree 
on where the origin is. The easiest 
would be to have the XY origin to be at 
the upper left corner of the bit-map 
since that is the first memory location 
(this is in fact the way many home 
computer graphics do it). However, 
since everyone knows that the origin 
should really be at the lower left 
corner, I will use the lower left corner 
as the origin. All that needs to be done 
is to subtract Y from 199. So our next 
operation will be Yl =199-Y. 

Next, think about how the bit-map 
display works — the first eight bytes 
show up as the upper left square, just 
where we would expect a character to 
be if we were in character mode. In 
fact, every eighth bit-map byte gets 
us over one character position. 
So, let's define a variable to tell us 



\h 



ji 
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which character position we're in. 
CHAR=INT{X/8) does this for us. Re- 
member, the maximum X can be is 
319. and INT(319/8) is 39, right? This 
means that CHAR goes from to 39, 
just like the columns of the character 
mode. As you might expect, the 
row position is similarly formed by 
ROW=INT(Y/8). Again, remember 
that the maximum Y is 199, and 
INTU99/8) is 24 (character rows go 
from to 24). 

Up to this point, we've been able 
to calculate which bit is involved and 
which row and column (same sense as 
in character mode) we should be in, 
given an X and Y. Lastly, we must know 
in which of the eight lines within a 
character cell we need to be. The an- 
swer is LINE=Y AND 7, just like the 
way we figured out which one of eight 
bits was required. 

We're all set now, since each LINE 
advances the bit-map address by one, 
each CHAR advances it by eight, and 
each ROW (8*40 bytes) advances it 
by 320. Remembering to add in the ad- 
dress of the first byte of the bit-map, 
this gives us BYTE =24576 + LINE + 
8*CHAR+320*ROW. Our required 
BASIC subroutine can now be 
written as: 

1000 REM GIVEN X AND Y 
CALCULATE ADDRESS AND 
DATA FOR BIT- HAP 
1010 Yl = 199-Y 
1020 BIT = 2 (7- 
(X AND 7) ) 

1030 LINE = Yl AND 7 
1040 ROW = INT(Yl/3) 
10 50 CHAR = INTCX/8) 
1060 BYTE = 24576 + 
LINE + 6*CHAK + 
3 20*ROW 
1070 RETURN 

So, to turn on a pixel, given X and Y 
(first making sure that X is between 
and 319, and Y is between and 199), 



we would do GOSUB 1000:POKE 
BYTE, PEEK(BYTE) OR BIT (since 
we don't want to disturb any neigh- 
boring bits which may have been set). 
Conversely, you should see that to turn 
off a pixel at X,Y we would do GOSUB 
1000: POKE BYTE, PEEK(BYTE) AND 
(255-BIT). 

We will now tackle the machine 
code version. I think you probably can 
already see how to do the additions, 
logical ANDing and ORing, even di- 
viding by eight (right-shift three 
times) and multiplying by eight (left- 
shift three times), since there are di- 
rect machine code instructions to do 
those operations. But what about mul- 
tiplying by 320 and the two raised to 
the power? Read on. 

The first "trick" we will be using re- 
lies on the fact that 8*INT(Y/8) is the 
same as Y AND 248 ($F8). So we need 
only to "mask off the low three bits of 
Y (or X for that matter) to accomplish 
this operation. Next, we recognize 
that 320*INT(Y/8) is the same as 
(8+32)*8*INT(Y/8), i.e., multiplying 
a number by 40 is the same as multi- 
plying the number by 32 and then 
adding eight times that number. Both 
32 and eight are powers of two, and 
multiplying by a power of two is the 
same as left-shifting the number by 
that power of two. So we've taken care 
of most of the 'sticky' operations 
needed. 

Finally, we note that 2 (7- (X AND 
7)), which gives us the data to be 
POKEd could be done by left-shifting a 
one by (7-(X AND 7)) times. However, 
to gain a bit of speed, we are instead 
going to look up the value in a table, 
which has just eight values in it: 
128,64 ) 32,16,8.4,2,1(580,$40,$20,$10, 
$08,$04,$02,$01). The index into this 
table is just the result of X AND 7. 
By doing this, we've eliminated one 
subtraction and up to seven left-shifts, 
which is both time- and memory- 
efficient. 



As you may already know, 
Commodore 64 BASIC, like PET 
BASIC is very "stingy" on zero-page 
locations. In fact, the locations SFD 
and SFE that we used for the indirect 
pointer in clearing the bit-map are 
nearly all there are in page zero that 
BASIC doesn't use. So, since we are 
going to need more RAM for both the 
current routine and the next one, let's 
pick a safe region with sufficient room 
for our purposes. I've chosen location 
828 (S033C) and higher, which is used 
by BASIC as a cassette buffer (i.e., 
BASIC uses it only during tape opera- 
tions) and is therefore safe for holding 
temporary values while a program is 
running. So let's define some of the 
locations we will need: 

X 828 (S033C) (twobytes(low.high) 

are needed since 
X goes up to 320) 

Y 830 (S033E) (one byte needed 

forY) 

BIT.. .831 ($033F) (this holds the data 
to be POKEd to 
the bit-map) 

TEMP..832 ($0340) (two bytes are 
needed tem- 
porarily) 

For now, let's assume that the values 
for X and Y have been set (by POKEing 
them into 828-830. for example). Our 
machine code subroutine for setting 
the byte address (into $FD,$FE) and the 
BIT data is as follows: 



PXADDR LDA#$00 



STA SFE 



SEC 



LDA #$C7 



(start by put- 
ting into 
SFE) 

(SFE is the 
high byte of 
the bit-map 
pointer) 
(get set for 
subtraction) 
(this is 
decimal 199) 



L 



JJ 
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SBC $033E 


(subtract Y, 




leaving 




199-Yinthe 




accumulator) 


PHA 


{and on the 




stack; we will 




need it later) 


AND #$F8 


<8*INT(Y/8) 




is now in 




accumulator) 


ASLA 


(multiply by 2) 


ROL $KE 


(result is now 




in accumulator 




(low) and $FE 




(high)) 


ASLA 


(multiply by 2 




again) 


ROL$FE 




ASLA 


(multiply by 




2 again, 




giving us 




8*(8*(INT(Y/8))) 


ROL$FE 




TAX 


(use x-register 




to hang onto A 




(the low byte) 




for a while) 


STA $0340 


(also low byte 




held in TEMP) 


LDA $FE 




STA $0341 


(TEMP+1 is 




being used 




to hold the 




high byte of 




8*(8*INT(Y/8))) 


TXA 


(get low byte of 




8*(8*INT(Y/8) 




back into 




accumulator) 


ASLA 


(continue mul- 




tiplying by 2) 


ROL $FE 




ASLA 


(once more) 


ROL$FE 


(we now have 




32*(8*INT(Y/8)) 




in A (low) and 




$FE (high)) 


ADC $0340 


(add in low 




byte (note — 




carry is clear 



li 



FIVE POWERFUL SOFTWARE 
DEVELOPMENT TOOLS 

Plus the Exciting $ew Book 

INSIDE THE COMMODORE 64" 



THE BOOK 

A complelB clear explanation of machine 
language. Assembly language. Commodore 64 
architecture, graphics, joysllok and sound effect 
programming. Detailed step-by-atep guide to the 
use of the development tools. How to combine 
BASIC and machine language, make auto-start 
cartridges, interface with the internal ROM- 
based programs of BASIC and the Kernal. 
Sample programs fully explained- 



THE TOOLS 

A33emb!ei7Editor/Laader7DecodBrif Monitor 
Full- featured Assembler allows use of labels, 
comments and arithmetic expressions to create 
machine language programs. Create, save, 
modify Assembly language programs with the 
Editor. Load and link machine language modules 
with the Loader. Decode machine language back 
into assembly language for study or input to the 
Editor. Single-step program execution with the 
Monitor. Combines Assembler/Edilor for maxi- 
mum ease of use. 



ALL FOR $54-95 PLUS $2.00- POSTAGE AND HANDLING Add $5.00 lor disk version. 
Send check, M.O., VISA/MC (S2.00 S.C.) or specify C.O.D. {add S3. 00) to; 
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P.O. Box 207, Cannon Falls, MN 55009 
507-263-4821 

Commodore 64 1M is a registeisd TM ol 
Commodofr Business Machines Inc. 
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commodore VIC-20 w Computer 



VIC'S MOM— MOTHER BOARD EXPANDER 



Expand your vie to full limit: 

provisions lor switches in board 

VIC-20 to IEEE-488 Interface 
allows VIC to use PET/C8M Peripherals. 

CHARACTER BUILDER- 
UTILITY AID 

will save and load from disk or tape 
design your own CUSTOM 

CHARACTERS 
ose wilh any memory 

contiguration $25.00 

RS-232 bi-directional 

INCLUQES SECOND 
JOY STICK PORT $40.00 

•NEWSECOND JOY 
STICK PORT $20.00 



3 slot $39.95 

with switches $45.95 

$79.95 



ROM EXPANSION 

BOARD 
put your own programs on 2K 

or 4K EPflOM'S 
we can pul your program in ROM- 
call lor into $19.50 



8K RAM BOARD 

can be daisy chained 
to tguf 

4K RAM BOARD 
VIC DUST COVER 

protect your VIC 
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NEW CARTRIDGE VIDEO GAMES FROM MACHINE 
LANGUAGE. INC. -SUPER FAST"COLORFUL 
AVAILABLE THRU OEM. INC. $25.00 

TWO PLAYER GAMES 

CLOSE ENCOUNTERS OF THE WORST KIND • BLACK JACK 

ACID RAIN • BLOCK BUSTER* DOT GOBBLER • FROGMAN 

SPIN TOIDS» CHESS 

we need 900a new machine language games royalty paid 

CALL FOR DETAILS 

Completely Tested, 100% Guaranteed 



$49.95 
$39.95 

$12.95 



vt 




Dealer inquiries invited 

TO ORDER CALL 305—464-7549 



order from OEM Inc. 

2729 South US. »1 

Ft, Pierce, Florida 33450 



Personal checks accepted, allow time to clear— add S2 for shipping— add S5 for COD 
Florida residents add 5% state sales tax— Master Card & Visa add 5% 
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from previous 


ADC$FD 


(add to low 




address; carry 




step)) 




byte of BYTE; 




already clear) 


STASFD 


(SFD now 




note that carry 


STA SFD 






holds the 




is already 


LDA #$60 


(finally add in 




low byte of 




clear) 




bit-map origin 




40*8*(INT(Y/8))) 


STA SFD 




ADC $FE 




LDA $FE 


(take care of 


LDA S033D 


(take care of 


STA SFE 


(320*CHAR + 




the high part) 




high byte) 




8*ROW + 


ADC $0341 


(note — this 


ADC $FE 


(this also clears 




LINE + ORI- 




step clears the 




the carry flag) 




GIN now in 




carry flag) 


STA$FE 


(we now have 




$FD,$FE) 


STA SFE 


(SFE now 




40*(8*INT(Y/8) 


LDA $033C 


(lastly, form 




holds the 




+ 8*INT(X/8)) 




BIT) 




high byte of 




in $FD r $FE) 


AND #$07 


(byANDingX 




40*8*(INT(Y/8))) 


PLA 


(remember, we 




with 7) 


LDA $033C 


(get low byte of 




put Yl on 


TAX 


(and using re- 




X coordinate) 




stack, so we 




sult to form 


AND #$F8 


(this forms 




now fetch it 




index) 




8*INT(X/8) 




back) 


LDA$0350,X ( 




in the 


AND #$07 


(this is LINE) 




table) 




accumulator) 


ADC SFD 


(add in to byte 


STA$033F 


BIT now set) 



This program will allow you to build and animate multi 
colored sprites on your Commodore 64 without resort- 
ing to hours of frustrating use of graph paper and binary 
numbers. Now you can create in minutes what might 
have taken hours or even days to see results. Great 
tool for programmers or fun training aid for novices as 
well, Contact your local Commodore dealer with this 
ad or send S24.95 + S2.00 postage - check or money 
order to: 

MAIN MENU Computer Programs 
P.O. Box 98005 
Seattle, WA 98188 



NAME_ 



ADDRESS_ 

CITY 

STATE 

ZIP 



if- 



**■ 








mm menu. 



__ COMPUTER PROGRAMS 

P.O. Box 98005 

Seattle, WA 9818B 

(206) 824-3444 



For The 



£z commodore ; 



TM- 
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RTS (done) 

•here is BITTAB 

$0350:$8u!$40 J $20,$10 I $08 l $04,$02,$01 

(In case you're interested the whole 
job took about 150 microseconds!) 

Now that everything is set, we can 
set the pixel on via: 

SETPIX LDA($FD),Y (get a byte 
from the bit- 
map; assumes 
y-register is 0) 
(this sets one 
bit on) 
(result goes 
back into 
the bit-map 
memory) 



ORA S033F 

STA($FD),Y 



We can turn a pixel off via: 

CLRPIX LDA$033F (get the BIT 
value) 

EOR #$FF ('flips' all the 
bits) 

AND($FD),Y (this turns off 
one bit) 

STA($FD),X (result stored 
back into 
bit-map) 

We also can "flip" the state of a 
pixel via: 

FLIPIX LDA($FD),Y (get data from 
bit-map) 
EORS033F ("flip" one bit) 
STA($FD),Y (put result 

back into bit- 
map memory) 



I'm sure you've noticed that things 
have been getting more and more 
complex as we've proceeded, but if 
you've gotten this far, you under- 
stand the essential features of bit-map 
graphics on the Commodore 64 (and 
of bit-mapped graphics in general). 
Step four, drawing the "best" straight 
line between two points is next, and 
believe me, the technique I'm going to 
use is not the easiest way, but it is one 
of the fastest, so it will be worth the 
effort to understand it. We'll pick up 
there next issue, and conclude our les- 
son in "advanced" (that is, fast) bit- 
mapped graphics. 



BUSINESS & HOME APPLICATIONS FOR VIC-20* 
Quick Brown Fox - tne m word processor $60 95 

CW-107A Home Calculation Program Pack 48.95 

CPV-31 Data Files - ycur storage 15 unlimited 14.95 

CPV-96 Household Finance Package - to keep records oi ait 

your household expenses 
CPV-208 Bar-Chart - display your numerical data 
CH Turtle Graphics learn programming 

VIC Forth - is 3 powerful language for BASIC programming 
HES MON - is a 6502 macnme language monitor with 
a mini-assernDler 

HES Writer - time-saving word processing tool 
Encoder - keep your personal reco/ds away Irom prying eyes 
Statistics SadlsllCJ - statistical analysis 
Total Time Manager 2.0 - creates personal or 
Dusmess schedules 

Toll Label - a mailing list and label program 
Toll Text BASIC 

Research Assistant - ■■.; -■-■.■-■ ta 

Toll Text Enhanced 

Grallx Designer - design graphic characters 
Mlnlmon - allows you to program, toad, save, or execute 
machine language programs 
Order Tracker 
Business Inventory - to maintain record ol inventory 

Home Inventory - lists your home belongings 

Check Minder - [V-20 & 64) 

keep your checkbook Ihe right way 

General Ledger - a complete general ledger 



BUSINESS & HOME APPLICATIONS FOR VIC-20" 

CPV-327 



CH 
CH 

CH 
CH 
CT-21 
CT-121 

CT-124 
CvT-125 

CT-126 
CT-140 
CM-152 
CQ-5 

CT-3 
CT-4 
CS 
CS 

CS 



30.95 

8 95 
34,95 
49 95 
34 95 

34 95 
34 95 

14 95 
15,95 

13,95 

15 95 
17 50 
2995 
12,95 
1395 

15.95 
15 95 
17.95 
14.95 

19.95 



BUSINESS & HOME APPLICATIONS FOR C-64 

HES Writer- word processor $39,95 

Turtle Graphics II - utilises the tun graphics ol your 6' 49.95 
HESMON - machine language monitor w 'mini-assembler 

6502 Professional Development System 

Data Files - a management program 

Calendar My Appointments - print a calendar 

tor every month in any year 

The Budgeter - oiace your personal finances in order 



CHC-504 

CHC-503 

CHC-502 

CHP-102 

CFC 

CPV-294 

CPV-296 



34 95 
29 95 
27 95 
14,95 



12.95 
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VtC 20 3/id Commodore 64 are Irademarks oi Commodoie Business Machines. Inc 
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CPV-328 

CHV 

CPV-367 

CC 



HESCQM - transfers data and programs bidirection- 
al ty bylween ViCs al Ihree limes ihe speed ol a disk drive 
HESCOUNT - monitors program uxetulian 
HESPLOT - Hires graphics subroutines 
Conversions - figures VQlume. lengln, yveighi area 
arid velocity to all possible configurations 



The Mflll - your complete mail urogram 



Cassette 
Disk 



40.95 

19.95 

12.95 

7.95 

24.95 
29 95 

GAMES FOR YOUR VIC-20® 

Cribbage 514.95 

Motor Mouse 12 99 

Bomber - you must decide who you want to fly for. 9 95 

then pick a target and your experience leve+ 

Amok - the halls ol Amok are populated Oy robots that 20 95 

obey one instruction - get the intruder 

Tank VS. UFO - the Tank is moving bach and forth 9 95 

along Ihe base shoot the UFO before it shools you 

Snakman - Pacmantor tnu vic 1495 

On Trl - you re the pilot ol the experimental snip Defender 17.95 

' Ihe popular arcade game, requires 3K 1 7.95 

ItOT- a game lull of bugs 20.95 



CCS 
CCD 
CPU-108 

CPU-109 

CPU- 153 

CPU-194 
Defender 
3-D Man 
Extermlni 

GAMES FOR YOUR COMMODORE 64 1M 

CCS Cribbage 

CFC Flight 64 • wBai a program" Cassette 

Disk 
CFC Spright Generator Cassette 

Disk 
Mastermind (VIC-20} S1295 
Star Trek (VIC) 
Black Jack (VIC) 
Tic-Tac-Toe 
Backgammon 
Maze 64 



S17.95 

1495 

16.95 

15.95 

17.95 

(C-64] 19,95 

9 95 

11 95 

7 95 

14 95 

15 95 



Pnces subiecl to change 
TO ORDER- 
P.O. Box J6Y65 
Wichita. KS 67218 
1316) 1534-4660 
Personal checks accepted (Allow 3 weeks) 
or C. O. D. (A dd $2) Handling charges S2 00 
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Professional Software Introduces 
POWER 

by Brad Ternpleton 




[^gggg 





POWER TO YOUR $ s«- 95 

nMPUTEI 



POWER produces a dramatic improvement in the 
ease of editing BASIC on Commodore's computers. 
POWER is a programmer's utility package (in a 4K 
ROM) that contains a series of new commands and 
utilities which are added to the Screen Editor and the 
BASIC Interpreter. Designed for the CBM BASIC 
user, POWER contains special editing, programming, 
and software debugging tools not found in any other 
microcomputer BASIC. POWER is easy to use and is 
sold complete with a full operator's manual written by 
Jim Butterfield. 

POWER'S special keyboard 'instant action' features 
and additional commands makeup for, and go beyond 
the limitations of CBM BASIC. The added features 
include auto line numbering, tracing, single stepping 
through programs, line renumbering, and definition 
of keys as BASIC keywords. POWER even includes 

C'HM is a trademark of Commodore Business Machines, Inc 



new "stick-on" keycap labels, The cursor movement 
keys are enhanced by the addition of auto-repeat and 
text searching functions are added to help ease pro- 
gram modification. Cursor UP and cursor DOWN 
produce previous and next lines of source code. 
COMPLETE BASIC program listings in memory can 
be displayed on the screen and scrolled in either direc- 
tion. POWER is a must for even,' serious CBM™ user. 

Call us today, for the name of the Professional 
Software dealer nearest you. 

Professional Software Inc. 

51 Fremont Street 

Needham, MA 02194 

Tel: (617) 444-5224 Telex #951 579 
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THE SUPERPET. 5 LANGUAGES 

It's not easy finding a microcomputer that 
can fulfill all of your requirements. Unless you've 
discovered the Commodore SuperPET' 

The SuperPET is the only microcomputer 
that comes with five of the most powerful struc- 
tured languages: Micro BASIC, MicroAPL, Micro- 
FORTRAN, MicroPASCAL, and MicroCOBOL. 

We think you'll agree it's far and away the 
most complete computer you can buy for your 

school £ E commodore 

v COMPUTER 



COMMODORE: THE MICROCOMPUTER MAGAZINE June/July 1983 33 



COMMODORE: THE MICROCOMPUTER MAGAZINE 




UNDERSTANDING 

THE 




LANGUAGE 



BY STEPHEN MURRI 



Teachers can use PILOT for the Commo- 
dore 64 to program computer assisted 
instruction to be used by their students. 
Here Steve Murri provides a detailed 
description of how this versatile 
programming language works. 



This article looks at PILOT on the 
Commodore 64 from a programmer's 
point of view. First, we discuss PILOT 
conventions and then cite actual pro- 
gram examples. 

The PILOT instruction line consists 
of several parts. For example: 

TS(X>0):This Is a sample PILOT 
instruction 



The first part of every instruction is 
an operation code or "opcode". In this 
example, the opcode "T" is used for the 
TYPE instruction. PILOT opcodes are 
usually only one character long. There 
are twenty different opcodes in the 
Commodore 64 version of PILOT. The 
most commonly used opcodes are 
T (TYPE), A (ACCEPT), M (MATCH), 
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J (JUMP), and W (WAIT). 

Following the opcode, there may 
be one or more "modifiers" or "con- 
ditioners". Modifiers alter the instruc- 
tion in some manner and are always 
one character long. In the previous 
instruction, the "S" modifier alters 
the TYPE instruction by directing 
the computer to clear the screen. 
"Conditioners" determine whether 
or not the PILOT instruction is to be 
executed. The conditioner can be any 
PILOT expression that generates a 
truth value. In the preceding example, 
the instruction is executed only if 
(X>0) is true. Conditioners can also 
consist of a single digit or letter. The 
Y and N (yes and no) conditioners 
determine if the instruction is to be 
executed based on the result of the last 
MATCH instruction. In the following 
example, the Y conditioner is attached 
to the instruction: 

TSY:This is a sample PILOT 
instruction 

This instruction is executed only if 
the last MATCH instruction succeeded. 
If the N conditioner were used, the in- 
struction would execute only if the last 
MATCH failed. Single-digit condition- 
ers are discussed later. 

The last two parts of a PILOT in- 
struction are the "separator" and the 
"field". The separator is the colon (:) 
and must be present in every PILOT 
instruction. The colon separates the 
opcode, modifiers and conditioners 
from the rest of the instruction. The 
field is to the right of the colon and 
contains text or PILOT commands. 

Interacting With 
the Computer 

We are now ready to look at how PILOT 
programs are written. The main instruc- 
tions used for interaction with the user 
are the TYPE (T:) and ACCEPT (A:) 
instructions. The following program 
demonstrates how easily PILOT 
programs interact with the user: 

Note: Line numbers are not used 
with PILOT on the Commodore 64. We 
included line numbers in our examples 
strictly for explanatory reasons. 

1 D:N$(20) 

2 TS:What shall I call you today? 



3 A:$N$ 

4 T:OK, SN$, press RETURN when 
you are 

5 : re;uiv to continue. 

6 A: 
7T: 

8 :Today our topic is South America. 
9: 
10 W:20 

Line 1 uses the DIMENSION (D:) 
instruction to define a string variable 
(NS) with a maximum length of twenty 
bytes. Line 2 uses the TYPE instruc- 
tion with the screen modifier (TS:) to 
clear the screen and prompt the user 
for a name. Line 3 uses the ACCEPT 
(A:) instruction to input the user's 
name and save it in the string variable 
N$. Lines 8 and 9 use the continuation 
(:) instruction. When several TYPE in- 
structions in a row are needed, we do 
not have to repeat the information in 
front of the colon; we simply repeat 
the colon. Finally, the WAIT (W:) in- 
struction in line 10 is used to pause 
the display for two seconds. 

The Power 
of the Match 

One of the most powerful features of 
PILOT is its ability to interpret exactly 
what the user is trying to say, regard- 
less of placement or spelling. This is 
accomplished with the MATCH (M:) 
instruction. The MATCH instruction 
performs a "window" search of the 
user answer buffer and scans for the 
words or word segments that you 
specified in the instruction. Spelling 
errors can be detected by using the 
"single wild-card character" (*) which 
matches any character in the corre- 
sponding position, or the "multiple 
wild-card character" (&) which 
matches any number of characters, 
including no characters. The MATCH 
instruction is demonstrated in the 
following interactive quiz on South 
American countries: 

1 PR:L 

2 * FIRST 

3 TS:Which South American coun- 
try is best 

4 : known for its production of oil? 

5 A: 
6T: 

7 M:v*n*&u&l* 



8 TY:Correct. It is Venezuela. 
9CY:R=R+1 

10 WY:20 

11 JY:NEXT 

On line 1 we see an example of 
the PROBLEM (PR:) instruction. The 
PROBLEM instruction can be followed 
by an "option list" specifying various 
options. In this example, the lower- 
case option (L) is used to convert all 
user responses to lower case so we 
may correctly use MATCH. 

Line 2 contains an example of a 
PILOT label. Labels can be one to six 
characters long and are used as desti- 
nations in JUMP and USE (subroutine) 
instructions. The MATCH instruction, 
on line 7 uses both the single and mul- 
tiple wild-card characters. In conjunc- 
tion with the lower-case option specified 
in the example, this instruction also 
matches many possible responses, 
including any of the following: 

Venezuela 

The country is venesuela 

venizula 

VINEZUELO 

The instructions on lines 8 through 

11 use the Y conditioner and are exe- 
cuted only if the MATCH succeeded. 
Line 8 TYPES a message acknowledg- 
ing the correct answer. Line 9 updates 
the numeric variable "R", which is 
used to store the number of correct 
answers. Line 10 pauses for two sec- 
onds and line 11 JUMPs to the instruc- 
tion labelled *NEXT. 

True 
Dialogue 

The preceding program example is 
now expanded to demonstrate PILOT'S 
capability to carry on a true dialogue 
with the user. To direct the user to the 
correct answer, the following instruc- 
tions MATCH for other South Ameri- 
can countries: 

12 M:br*&*l 

13 TY:No, Brazil is best known for its 

14 production of rubber and coffee. 

15 M:c&il%£ 

16 TY:No, Chile is known for pro- 
ducing the 

17 : finest wines. 

18 M:c'l&*b*& 

19 TY:No, Colombia is known for 
producing 
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20 
21 



22 



:the world's finest coffee. 

M:per!equ!bo!!arg!par!ura!chi! 

brazlcol 

TN:S%B is not a South American 

country. 

23 MY:per!equ!bol!arg!par!ura 

24 TY:No, $%B is not the country. 
Lines 12 through 20 check to see if 

the user entered Brazil Chile or Co- 
lombia, and if so, informs the user of 
that country's main product. Line 21 
uses the OR (!) operator to MATCH 
any South American country. (In addi 
tion to the OR operator, the AND (&) 
operator can also be 
specified in a MATCH 
instruction.) If the 
MATCH fails, line 22 
types out the user an- 
swer buffer (%B) and 
informs the user that 
this is not a South 
American country. Fi- 
nally, lines 23 and 24 
determine if the user's 
response was a South 
American country 
other than Brazil, 
Chile or Colombia; if 
so, PILOT simply dis- 
plays the response that 
this is not the correct 
country. 



29 :country is Caracas. 

30 T3:The correct answer is 
Venezuela. 

31 W:50 

32 J3:NEXT 

33 T: 

34 :Try again. 

35 W:10 

36 J:F1RST 

37 *NEXT 

The instructions on lines 26, 28, 30 
and 32 use the single-digit conditioner. 
Line 26 is executed only after the first 
user response. Line 28 types another 




Use PILOT'S graphics commands 
to draw lines. 



Next, sprites are combined to form 
the panels of the cube. 



Hinting 

PILOT provides an 
easy way to present a 
series of hints through 
use of the single-digit 
conditioner. Hints are 
clues to assist the user 
in finding the correct 
answer. 

PILOT keeps track of the number 
of consecutive times the user responds 
to the same question. This count is 
stored in what is called the "A" counter. 
The value of the digit used in the con- 
ditioner is compared with the value in 
the "A" counter. If they are the same, 
the instruction is executed; otherwise, 
the instruction is skipped. Our previ- 
ous program is expanded to include 
examples of hinting: 

25 T: 

26 T1:A hint, this country is 
located at 

27 :the top of the continent. 

28 T2:Another hint, the capital of this 




Sprite animation is used to create 
movement on the screen. 



The labels on the panels show 
PILOT'S ability to combine high 
resolution graphics and text on 
the same screen. 



hint only on the second try. Finally, if 
the user does not have the right answer 
by the third try, the program types out 
the correct answer and JUMPs to the 
instruction labelled *NEXT. Otherwise, 
a "try again" message is displayed and 
the JUMP instruction on line 36 sends 
the program back to the initial ques- 
tion to give the user another chance. 
The WAIT instruction is used in lines 
31 and 35 so the user has time to read 
the computer responses. 

PILOT Graphics 

One of the most powerful PILOT in- 
structions is the GRAPHICS instruc- 



tion. The GRAPHICS instruction (C:) 
is always followed by various graphics 
commands to specify color, text-cursor 
positioning, erasing and "windowing". 
Another set of graphics commands is 
used to plot and draw on the screen. 
These commands are always followed 
by an (X,Y) screen location. When 
plotting or drawing, the screen is 
treated like a piece of graph paper with 
the origin (O.O)located at the bottom 
left corner of the screen. The com- 
mands used to point and draw on the 
screen are POINT (P), DRAW (D), 

MOVE (M), FILL (F), 
UNPOINT (Q) and 
REMOVE (R). 

The following in- 
structions use the 
GRAPHICS instruction 
to draw a square on 
the screen: 

1 G:CI;B0;X0;E 

2 G:P100,70 

3 G:D220,70;D220, 
150; D100.150; 
D100,70 
The first instruction 

line sets the cursor 
color to white (CI), the 
background and border 
colors to black (B0;X0), 
and erases the screen 
(E). In line 2, the 
POINT command is 
used to plot a point at 
(X,Y) location (100.70). 
Instruction line 3 
creates the square by 
drawing four lines with 
the DRAW command. 
The square can be 
expanded into a three- 
dimensional cube with the following 
instructions: 

4 G:D70,90;D70,170;D180,170; 
D220,150 

5 G:M70,170;D100,150 

Line 4 uses the DRAW command 
to create the diagonal lines required 
for depth. Line 5 uses the MOVE (M) 
command to position the graphics 
beam at (X,Y) location (70,170) so the 
final line of the cube can be drawn. 

Graphics and text can be combined 
in the same display as demonstrated 
by the following instructions: 

6 G:M225,150;T 

7 T:A 
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8 G:M227,70;T 

9 T:B 

These instructions label two 
points on the cube "A" and "B". Line 6 
moves the graphics beam to position 
(225,150). The MOVE command is 
then followed by the TEXT-CURSOR 
command (T), which positions the 
text cursor at approximately the same 
point as the graphics beam. Line 7 
uses the TYPE (T:) instruction to type 
the letter "A" on the screen. The letter 
"B" is similarly displayed on the screen 
with the instructions in lines 8 and 9. 

Expanding on our example, the fol- 
lowing instructions demonstrate the 
use of the SPLIT (S) command. The 
SPLIT command creates windows in 
any one of five locations on the screen: 

10 G:S5;B6 

11 TS: If the distance between point A 

12 :and point B is 12 centimeters 
long, 

13 ;how many cubic centimeters 
are in 

14 :this cube? 

15 W:100 

The GRAPHICS instruction on line 
10 (G:S5) splits the screen at the fifth 
location, creating a window at lines 
20 through 25. The background color 
command (B6) sets the background 
color of the window to blue. All sub- 
sequent TYPE instructions now type 
text only in this window. If a clear 
screen is executed, only the text in the 
newly created window is erased; the 
original graphics display of the cube 
is preserved. This window remains in 
effect until another SPLIT command 
is executed. 

Windows are useful when creating 
complex graphics displays that are en- 
hanced by several frames of discussion. 
In the previous example, the window 
is used to quiz the user on the display. 
The window area can then be used for 
the user's response and additional 
questions. 

Programmable 
Characters 

New characters can easily be de- 
signed with PILOT on the Commodore 
64 by using the NEWCHAR (N:) in- 
struction. The NEWCHAR opcode is 
followed by the ASCII code number 
of the character to be redefined. The 
8 x 8 bit character definition is then 



coded as a series of dots which are either 
"ON" or "OFF". The ON dots are coded 
with an X and the OFF dots are coded 
with a period. 

The following program creates special 
characters for "up" and "down" arrows: 

1 N:97 

2 ...XX... 

3 ..XXXX.. 

4 .X.XX.X. 

5 X..XX..X 

6 ...XX... 

7 ...XX... 

9 ...XX... 

10 N:98 

11 ...XX... 

12 ...XX... 

13 ...XX... 

14 ...XX... 

15 X..XX..X 

16 .X.XX.X. 

17 ..XXXX.. 

18 ...XX... 

19 TS:#97#98 

20 W:50 

In the preceding example, the PILOT 
ASCII characters 97 and 98 have been 
redefined to appear as the "up" and 
"down" arrows respectively. Since 97 
corresponds to the ASCII character "a" 
and 98 corresponds to the ASCII char- 
acter "b", the new characters are dis- 
played every time the user presses the 
"a" or "b" keys. Subsequently, any 
TYPE instruction which displays the 
"a" or"b" characters will now display 
the new characters on the screen. 

Line 19 demonstrates another way 
to display characters on the screen. A 
TYPE instruction (T:) followed by a 
number sign and the numeric repre- 
sentation of an ASCII character dis- 
plays that character on the screen. 

Sprites 

PILOT takes full advantage of the 
Commodore 64's unique ability to dis- 
play movable objects called sprites. Two 
PILOT instructions allow you to easily 
define and control sprites: The BIT- 
PATTERN instruction (B:) and the 
SPRITE (S:) instruction. The BIT- 
PATTERN instruction consists of an 
opcode and a sprite number, followed 
by the sprite definition. The sprite def- 
inition consists of 21 rows of 24 dots. 
The following program demonstrates 
how easy it is to create sprites using 



PILOT on the Commodore 64: 
1 B:0 



5 

6 XXXXXXXXX 

7 XXXXXXXXXXXXX 

8 XXXXXXXXXXXXXXX.... 

9 ....XXXXXXXXXXXXXXXXX... 

10 ...XXXX..XXXXXXXXXXXXX.. 

11 ...XXX.X..XXXXXXXXXXXX.. 

12 .XXXXXX..XXXXXXXXXXXXXX. 

13 ...XXXXXXXXXXXXXXXXXXXX. 

14 ...XXXXXXXXXXXXXXXXXXXX. 

15 ...XXXXXXXXXXXXXXXXXXXX. 

16 ....XXXXXXXXXXXXXXXXXX.. 

17 .....XXXXXXXXXXXXXXXXX.. 

18 xxxxxxxxxxxxxxx... 

19 XXXXXXXXXXXXX.... 

20 xxxxxxxxxxx 

21 ....XXXX.. .XXXX. .XXXX... 

22 ...XXXXXXXX...XXXXXXXX.. 

23 ...XXXXXXX....XXXXXXX... 

24 

26 B:l 

29 

30 

31 XXXXXXXXX 

32 XXXXXXXXXXXXXX... 

33 XXXXXXXXXXXXXXXX.. 

34 ....XXX. .XXXXXXXXXXXXX.. 

35 ....XX.X..XXXXXXXXXXXXX. 

36 .XXXXXX..XXXXXXXXXXXXXX. 

37 ...XXXXXXXXXXXXXXXXXXXX. 

38 ...XXXXXXXXXXXXXXXXXXXX. 

39 ...XXXXXXXXXXXXXXXXXXXX. 

40 ...XXXXXXXXXXXXXXXXXXXX. 

41 ....XXXXXXXXXXXXXXXXXX.. 

42 ....XXXXXXXXXXXXXXXXXX.. 

43 XXXXXXXXXXXXXXXX... 

44 ...XX.XXXXXXXXXXXXX..XX. 

45 ..XXXXX.XXXXXXXXXX.XXXX. 

46 ..XXXXX..XXXXXX..XXXXXX. 

47 ...XXXXXX XXXXXX.. 

48 ....XXXXX XXXX.... 

49 XX 

As with the NEWCHAR instruction, 
the ON dots are coded with an X and 
the OFF dots are coded with a period. 
To control sprites on the screen, the 
following SPRITE instruction is used: 
Smumber; operation list 
where "number" is the sprite num- 
ber (0-7). 

Several operations that can be included 
in the operation list are as follows: 
El Enable (turn on) 
E0 Disable (turn off) 
Ml Multi-color mode 
M0 Single-color mode 
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XI Double X size 

XO Single X size 

Yl Double Y size 

YO Single Y size 

PI Priority on (sprite will be displayed 
behind any background data) 

PO Priority off (sprite will be displayed 
in front of any background data) 

Cn Set foreground color of sprite to n 

Lx,y Location (move upper left hand 
corner of sprite to location (x,y)) 

Rn Set R color to n (only for multi- 
color sprites) 

Qn Set Q color to n (only for multi- 
color sprites) 
Using the above sprite commands, 

the following instructions will display 

the previously defined sprites on 

the screen: 

51 G:B0;X0;C1;E 

52 S:0;C7;MO;XO;YO;L100,50;E1 

53 S:1;C7;MO;XO;YO;L148,50;E1 

Line 51 uses the GRAPHICS instruc- 
tion to change the background and 
border colors to black, the cursor color 
to white, and erases the screen. The 
SPRITE instruction on line 52 specifies 
sprite zero, sets the color to yellow 
(C7), uses single-color mode (MO) with 
no expansion (X0;Y0), sets the (X,Y) lo- 
cation to (100,50) and turns the sprite 
ON (El). Line 53 displays the other 
sprite at (X,Y) location (148,50). 

Sprite animation is created by 
switching back and forth between 
sprites and/or altering the (X,Y) lo- 
cations while the sprite is ON. 

Multi-colored sprites are handled 
somewhat differently than single- 
colored sprites. Each sprite can have 
three colors. There are two commands 
required to set the additional colors: 
"R" and "Q". The color information for 
the sprite is coded in the bit-pattern. 
Each row of pixels is now treated as 12 
pairs of dots. These pairs are required 
to generate the four possible combina- 
tions of color data: 

To select the background color 
X. To select the "C" color 
.X To select the "Q" color 
XX To select the "R" color 

The following instructions create a 
multi-colored sprite: 

1 B:0 

2 

3 

'"£ ■•■••*■* .A ■ A. ..V j A ■ A i ■ ■ ■ • a 



O ■•»■■ ..A.A.A.A.A.AiA. , ». 

6 ....... X*X .a •X.X«X,X..,. 

f A.AkV.A.AiAiAiAmi, 

O * - ■• . i A. A -A, r A ..\. A, A . A . A. . 

9 XXXX..X.X.X.X.X.X.. 

10 .X.X.XXX.X.X.X.X.X.X.. 

11 ...X.X.X.X.X.X.X.X.X.X.. 

12 ...X.X.X.X.X.X.X.X.X.X.. 

13 ...X.X.X.X.X.X.X.X.X.X.. 

14 ...X.X.X.X.X.X.X.X.X.X.. 

ID ■ ■ *■ • A .A .A . *A . » A .A* A . A .A . « 

16 X.X.X.X.X.X.X. ... 

If **•*■ . . A* A , A • .A. A. A. A- »« . 

lu •••■•■•■•AiAiAiAtAoi.il 

M *j • • • i A • A « ■ ■ . A . A i A_A ■. A ■ A » - * 

20 ....X.X.X.X...X.XXX... 

£i l . . A . A . A .. A • • »- 4 A . A . A *A , j - 

22 

23 G:B0;X0;C1;E 

24 S:0;M1;C1;R0;Q7;L100,50;E1 

Lines 1 through 22 define the multi- 
colored bit-pattern. The SPRITE 
instruction on line 24 specifies multi- 
colored mode (Ml), and sets the Q 
color to yellow, the C color to white 
and the R color to black. This means 
that the dot pairs coded as "X." pro- 
duce white, ".X" produces yellow, and 
"XX" produces black. The dot pair ".." 
becomes transparent and thus lets 
the background color come through. 
The above sprite will have a yellow 
body, white feet and a black and white 
eye area. 

Although multi-colored sprites pro- 
vide diversity in color, the horizontal 
resolution is cut in half. This is because 
a multi-colored sprite now takes two 
pixels to represent one unit of color. 
Another method of achieving multi- 
colored displays is to combine two or 
more single-colored sprites. In this 
manner, large and colorful graphic 
displays can be created. 

Sound 

PILOT on the Commodore 64 allows 
the programmer full access to the 6581 
Sound Interface Device (SID) through 
use of the VOICE (V:) instruction. This 
feature is reserved for the more techni- 
cally oriented programmer because it 
requires an understanding of the bits 
and bytes of the SID chip. But under- 
standing the SID chip should not be 
too difficult since a full description 
(including music note values, charts, 
and a register map) is provided in the 
manual. Also included in the manual 



is a sample "sound editor" program, 
which allows you to experiment with 
various sounds for use in your PILOT 
programs. All the features of the SID 
chip are available to you, including 
ring modulation, synchronization 
and filtration. 

Sound is created by POKing values 
to the SID chip through use of the 
VOICE (V:) instruction. The format 
of the voice instruction is: 
V:register number,value 
where "register number" is the SID 
chip register number and "value" is 
the decimal value to be stored in the 
register. 

Other Features 

PILOT has other powerful features that 
we would like to mention here. The 
CALL (C:) instruction is used to inte- 
grate your own machine language sub- 
routines into the PILOT system. This 
instruction executes a machine lan- 
guage JSR to the specified area of your 
code. A list of free memory locations is 
provided in the PILOT manual. 

The EXTENDED VOICE (VX:) in- 
struction is similar to the VOICE in- 
struction except that it allows you to 
POKE values anywhere in memory. 
You can use the VX: instruction in 
conjunction with your machine lan- 
guage subroutines. Theoretically, it 
can also be used for direct programming 
of I/O chips such as the VIC chip. (This 
of course would be at your own risk!) 

There are other PILOT instructions 
to maintain disk records and link seg- 
mented PILOT programs. There is also 
an "escape" feature, which lets you 
swap in special purpose routines. Also, 
there is a complete set of PILOT func- 
tions including random number, ab- 
solute value, string conversion, etc. 

This article has touched on the 
major features of PILOT in an attempt 
to briefly describe the capabilities of 
the PILOT language. PILOT is simple 
enough for the child to use, yet sophis- 
ticated enough to satisfy the needs of 
the experienced computer specialist. 
This language provides the educational 
developer with unlimited creative pos- 
sibilities. We can expect to see a vast 
array of quality educational software 
as a result of the implementation of 
PILOT on the Commodore 64. C 
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PROGRAMMING 
WITH 

COMAL 

The Not-So-New Language 

You may have been hearing a lot, lately, about this 

"new" programming language. Even though 

COMAL has been around for over ten years, it is 

just beginning to be picked up in the United States. 

Here Len Lindsay gives you a detailed description 

of what COMAL can do and how you can use 

it in your programming. 



BY LEN LINDSAY 
Author of the COMAL Handbook 



Last issue I advocated taking great 
care in choosing a programming 
language to be taught in our schools. 
You may recall that COMAL was the 
language that I felt met the specified 
criteria in that article and that it 
already is the official language taught 
in both Denmark and Ireland. For 
many of you, that may have been 
the first time you heard of COMAL. 
COMAL is fast (over 60 times faster 
than BASIC in string searches), easy 
to learn and read, powerful (includes 

ILLUSTRATION-GREG PURDON 



program structures and many advanced 
features) and modern (includes turtle 
graphics similar to LOGO). This article 
is the explanation of what COMAL is 
all about. Fully explaining COMAL 
would take an entire book — indeed, 
four different COMAL books are al- 
ready on the market that do just that. 
This article is thus restricted to pre- 
senting a quick summary of some 
of the important aspects of 
CBM COMAL. 



You can call a procedure or function at any time, anywhere in your program, 

simply by using an EXEC statement or function call. When a running 

program encounters an EXEC statement, it executes that procedure before 

continuing on. And the procedures or functions now don't even have to be part 

of the program. They can be external. Thus, CBM COMAL version 2.00 more 

or less has a virtual memory system, just like the big mainframe computers. 



What is COMAL? 

COMAL is not a new language. Ten 
years ago Borge Christensen, a Danish 
educator, created COMAL. The follow- 
ing year the design was carefully studied, 
and the first COMAL implementation 
was launched in February of 1975. By 
1979, COMAL was very popular in Den- 
mark, and a working group was formed 
to refine COMAL, resulting in the 
COMAL Nucleus, the definition of 
COMAL-80, still known as COMAL for 
short. In May of 1982, the working 
group further refined and expanded 
the language. This redefinition was 
detailed in the COMAL Kernal, also 
referred to as "standard COMAL". At 
the last meeting of the working group 
in March of 1983, the COMAL Kernal 
remained unchanged. The group also 
decided to present COMAL to the ISO 
(International Standards Organization) 
to become officially standardized. As 
a member of the working group, I 
welcome your comments on COMAL. 

For the past ten years COMAL has 
been struggling to replace its ancestor, 
BASIC. Versions of COMAL are now 
available on several different systems, 
including Commodore. Now that 
COMAL is available for the Commo- 
dore 64 computer, it has a good chance 
to take a giant leap forward in popular- 
ity. Read the following description and 
see if you don't agree. 

There are several versions of CBM 
COMAL. Version 0.12, Introductory 
COMAL, is available on disk for any 
PET/CBM with 4.0 ROM and 32K ' 
memory. It is in the public domain 
and replaces obsolete version 0.11. It 
also is available for the Commodore 64 
on disk or tape. The complete COMAL 
Kernal is implemented in version 1.02 
(except for user-defined string func- 
tions). It also is in the public domain 
and is available for any 96K PET/CBM 
with 4.0 ROM, or as a plug-in ROM 
board. Finally, the most advanced ver- 
sion of COMAL is version 2.00. It con- 
tains the complete COMAL Kernal plus 
many enhancements. It should be avail- 
able on disk for any 96K PET/CBM with 
4.0 ROM, or as a plug-in ROM board. 



It also is available as a cartridge for the 

Commodore 64. Both Commodore 64 
COMAL implementations include 
additional commands and functions 
to control the special graphics features 
of the 64. 

COMAL as described in this article 
is version 2.00. Other versions will be 
similar, but may be missing some of 
the advanced features. A complete 
detailed description of all the versions 
is available in the COMAL Handbook. 
A list of COMAL resources and suppliers 
is listed at the end of this article. 

COMAL is not just an advanced form 
of BASIC. It retains the easy-to-learn 
user friendliness of BASIC, but removes 
many of its deficiencies. Full screen 
editing, commonly identified with 
Commodore BASIC, is also available 
in COMAL, making it easy to edit a 
program. In addition, COMAL includes 
automatic line numbering and renum- 
bering as a standard feature. Line num- 
bers, however, are not relevant to a 
running COMAL program, but are 
provided for your reference while 
editing the program. 

You will appreciate the immediate 
syntax check of every line as it is en- 
tered. COMAL will not accept a pro- 
gram line until it is correct. If an error 
is detected in a line you enter, a very 
complete and understandable error 
message is displayed immediately be- 
low the line, and the cursor is placed 
at the point of the error. Once you 
correct the line, the error message is 
removed from the screen, and what- 
ever it previously overwrote is replaced, 
providing you with non-destructive 
error messages. This is a long overdue 
feature. It guarantees that every line 
in your program is syntactically cor- 
rect. The error message does not remain 
on the screen after the error is corrected. 
And no information on the screen is 
lost when the error message is displayed. 

To make program editing even 
easier, COMAL version 2.00 also 
includes an advanced version of the 
FIND command. You tell COMAL what 
text to find, and it will list each line 
that contains it, one at a time, placing 



the cursor on the text. You then may 
change or edit the line if you wish. 
Simply hit RETURN and the FIND 
continues, automatically listing 
the next line containing the text 
requested. This could even make 
programming fun! 

CBM COMAL corrects many other 
peculiarities of CBM BASIC. A prime 
example is that now you can enter a 
program using BOTH upper and lower 
case letters. You may have wondered 
why BASIC couldn't recognize a pro- 
gram using shifted letters. It wasn't the 
computer's fault! Blame BASIC. 
But this frustrating situation is no 
longer a problem. In addition, you 
now have the option of listing your pro- 
gram in all upper or all lower case, or 
a combination. The standard COMAL 
listing now uses a combination, with 
COMAL keywords (like FOR, OPEN, 
and READ) listed in upper case and 
identifiers (variable names) listed 
in lower case. You will be surprised 
how easy it is to read a program using 
this combination. 

The readability of a COMAL pro- 
gram listing is further enhanced by 
the automatic indentation of struc- 
tures (these structures are explained 
below— all versions of CBM COMAL 
include these structures, even version 
0.12). This makes it easy to see the 
program organization. In addition, 
COMAL allows you to use up to 78 char- 
acters for your variable names, all 
of them significant. And you don't 
have the restriction of keywords not 
being allowed as part of an identifier. 
BASIC will not allow a variable called 
FORTUNATE, since it includes the 
keyword FOR. COMAL not only allows 
it but can distinguish it from a variable 
called FORTUNES. As an even further 
aid to keeping your programs readable, 
COMAL allows more than just alpha- 
numeric characters in variable names. 
You can also use an apostrophe ('), 
square brackets ([]), backslash (\), and 
back arrow (<-), which is converted 
to an underline character. The name 
LINE'COUNT, for instance, is easier 
to read than LINECOUNT. 
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Structures 

COMAL includes the powerful 
program structures similar to those 
popularized by PASCAL. Once you use 
these structures you will wonder how 
you ever programmed without them. 
These multi-line structures are 
grouped as follows: 

Conditional Statement Execution 
IF. ..THEN. ..ELIF. ..ELSE... 

ENDIF 
CASE. ..OF.. .WHEN... 

OTHERWISE... ENDCASE 

Conditional Loops 
REPEAT... UNTIL 
WHILE... DO... ENDWHILE 
LOOP. . . EXIT WHEN . . . ENDLOOP 
(not available in version 0.12) 



Fixed Loop 

FOR.. .TO... STEP... DO... NEXT 
(ENDFOR) 

Modules 

FUNC...REF... CLOSED... 

IMPORT . . . RETURN . . . ENDFUNC 
PROC...REF... CLOSED... 

IMPORT... ENDPROC... EXEC 

IF Structure 

CBM BASIC has a very simple form 
of IF structure. COMAL expands it to 
multi-lines, including an ELSE sec- 
tion. Now you can provide a condition 
for evaluation, and if it is true, the first 
set of statements will be executed, but 
if it is false only the second set (after 
the word ELSE) is executed. This is 
illustrated below: 



IF <condition> THEN 



True Block of Statements 



ELSE 



False Block of Statements 



ENDIF 



optional 
section 



For example: 
IFerror'count>OTHEN 

PRINT "You completed this section 

with";error'count;"errors." 

PRINT "These errors indicate areas 

needing extra practice." 
ELSE 

PRINT "Fantastic, no errors in this 

section!" 

PRINT "Not many others have 

achieved this goal." 
ENDIF 

The indentation of the statement 



blocks is automatic, and you can see 
how it helps illustrate the structure. 
Structures can be nested, and the in- 
dentation will indicate the level of nest- 
ing. The IF structure also provides a 
way to include several condition checks 
within the same structure using the 
keyword ELIF (stands for ELSE IF). 
You may include as many ELIF sections 
as you wish, or none at all. The ELSE 
section may also be included or left out. 
The complete IF structure is illustrated 
below with an example: 



IF<condition-l>THEN 




condition- 1 True Statements 

ELIF <condition-2> THEN 
condition-2 True Statements 

ELIF <condition-n> THEN 
condition-n True Statements 



ELSE 



optional 
additional 
conditional 

sections 



False Statements 



ENDIF 



optional 
section 



For example: 

IF register<bank'balance THEN 

PRINT "Your bank balance shows 

that you have" 

PRINT "more money in the bank 

than you register" 

ELIF register>bank'balance THEN 



PRINT "You register more money 
than the" 

PRINT "bank balance indicates" 
ELSE 

PRINT "Your register balances with 

the bank" 
ENDIF 
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CASE Structure 

A multiple choice type decision 
is possible in COMAL with the CASE 
structure. It allows you to present sev- 
eral sets of statements (each set referred 
to as a "case") for possible execution. 
The structure begins with an expression 
(either numeric or string) to be eval- 
uated. Its value is compared to the 



expressions listed at the beginning of 
each case. If any expression matches, 
the statements in that case are executed. 
and the remainder of the structure is 
skipped. If no match is found in any of 
the cases, the OTHERWISE statements 
are executed. This structure replaces 
the primitive ON X GOTO <linel>, 
<line2>,<iine3>... 



CASE <expression> OF 
WHEN <expression list-l> 




Statements-1 






WHEN < expression 

Statements-2 


list-2> 


optional 

additional 

case 


WHEN <expression 


list-n> 


sections 


Statements-n 







OTHERWISE 

Otherwise Statements 


optional 
section 


ENDCASE 






For example: 
CASE choice$ OF 
WHEN "H" "h", "?" 

EXEC instructions 
WHEN "A", "a" 

CHAIN "ADD" 
WHEN "S", "s" 

CHAIN "SUBTRACT" 
OTHERWISE 

PRINT "I don't understand your 

choice." 


(Version 0.12 does not include this 
structure.) 

REPEAT 


Statements 
UNTIL <condition> 

WHILE <condition> DO 


Statements 


PRINT "Your choices are: 

PRINT "A— Add" 

PRINT "S— Subtract" 

PRINT "H— Help — instructions" 


ENDWHILE 
LOOP 


ENDCASE 


Statements 


Conditional Looping 


EXIT WHEN <condition> 


Structures 


Statements 



Most programs have statements that 
are to be executed over and over. There 
are three ways to conditionally exit such 
a loop: prior to beginning the loop, 
after completion of the loop, or some- 
where within the loop. COMAL has a 
specific structure that allows for each. 
The REPEAT loop executes the loop 
statements first, and then checks the 
condition specified in the UNTIL state- 
ment. The loop is repeated until the 
condition evaluates to TRUE. 

The WHILE loop checks a condition 
first. If it evaluates to FALSE, the loop 
is considered finished and the statements 
are skipped. If it evaluates to TRUE, the 
statements are executed, and then the 
condition is checked again. 

The loop structure continues 
executing its statements as long as 
the EXIT WHEN condition is FALSE 



ENDLOOP 

For example: 
REPEAT 

INPUT "What is the answer": reply 

tries: +1 
UNTIL reply = answer OR tries>2 

WHILE NOT EOF(in'file) 

READ FILE in'file: textS 

PRINT text$ 
ENDWHILE 

LOOP 

READ FILE in'file: nameS 
EXIT WHEN name$="*END*" 

pointer: + 1 

array$(pointer):=name$ 

ENDLOOP 



Fixed Loop Structure 

Often you will want to execute a 
block of statements a specific number 
of times. COMAL has a structure similar 
to the FOR. . . NEXT of BASIC. However, 
COMAL converts the keyword NEXT 
into the keyword ENDFOR to be com- 
patible with the terminating statement 
of other loop structures. COMAL will 
still accept the keyword NEXT if you 
type it in, but it then will convert it 
to ENDFOR for you. 

FOR <controlvar>:=<start> TO 
<end>STEP<step>DO 

Statements 



ENDFOR <controlvar> 

The "STEP <step>" section of the 
FOR statement is optional. If omitted, 
a step of 1 is used, just as with BASIC. 
Also similar to BASIC, COMAL allows 
you to use just ENDFOR without hav- 
ing to specify the <controlvar>. How- 
ever, it goes a step further and inserts 
the <controlvar> for you, improving 
your program listing. Note that the 
<controlvar> is compared to the 
<end> value before the statements 
are executed. Thus it is possible to skip 
the FOR loop statements entirely. As 
an example, the following loop state- 
ments would be skipped (not executed 
even once): 

starting: = l; ending:=0 

FOR temp: = starting TO ending 

PRINT "Now inside the FOR loop" 
ENDFOR temp 

An example of a loop to read 12 values 
from data statements and store them 
into a string array follows: 

FORmonth:=lT012DO 
READ month'name$( month) 
PRINT "Month number";month;"is 
named";month'name$(month) 

ENDFOR months 

COMAL also allows a quick one-line 
FOR statement without the use of the 
ENDFOR terminator. 

FOR <controlvar>: = <start> TO 
<end> STEP <step> DO <state- 
ment> 

A common example is a pause loop, 
shown below (this example also illus- 
trates the use of the NULL statement, 
which, as its name implies, does ab- 
solutely nothing): 

FOR pause: = 1 to 500 DO NULL 
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Procedures and Functions 

Multi-line procedures and functions 
are one of COMAL's specialties. They 
can be easily used by the beginner, yet 
offer options that should satisfy even 
the most advanced programmers. 

It is easy to write modular programs 
in COMAL. You can call a procedure or 
function at any time, anywhere in your 
program, simply by using an EXEC 
statement or function call. When a 
running program encounters an EXEC 
statement, it executes that procedure 
before continuing on. Procedures are 
called by name (remember, line num- 
bers are not relevant to a running 
COMAL program). The procedures and 
functions allow parameter passing as 
well as both local and global variables. 
And the procedures or functions now 
don't even have to be part of the pro- 
gram. They can be external. Thus, 
CBM COMAL version 2.00 more or less 
has a virtual memory system, just like 
the big mainframe computers. Proce- 
dures can be nested, and one program 
can call another, or even can call itself 
(recursion). COMAL allows user- 
defined numeric, integer and string 
functions. The value of the function 
is returned via a RETURN statement 
(different from the RETURN statement 
of BASIC). Although I will concentrate 
on describing procedures in this arti- 
cle, functions share all their flexibility, 
except are called with a function call 
and return a value, instead of being 
called with an EXEC statement. 

The most important line in a proce- 
dure is the first line, which I will refer 
to as the header. This is where you give 
the procedure a name, indicate the 
parameters (if any), and specify whether 
it will be a CLOSED procedure (with 
local variables) or not. Version 2.00 
extends the header with an optional 
external indicator. Thus the PROC state- 
ment can be rather complex. This pro- 
vides you with flexibility. You don't 
have to use all the options, bells and 
whistles. You can start with a basic 
procedure. 

The simplest PROC statement only 
gives the procedure a name. All vari- 
ables remain global, and parameters 
are not used: 

PROC < procedure name> 

PROC request 

You can make all the variables within 
the procedure local by adding the word 
CLOSED to the end of the PROC header 
line. A CLOSED procedure does not 
know about any of the variables used 



in the main program, and the program 
similarly does not know about the 
variables inside the procedure. 

PROC <procedure name> CLOSED 

PROC pause CLOSED 

However, even a CLOSED procedure 
can share values from the main pro- 
gram via parameter passing or the IM- 
PORT statement. The variables listed 
in the parameter list for the procedure 
are assigned initial values supplied by 
the calling EXEC statement. Simple 
value passing is only "one way" — into 
the procedure. The PROC header looks 
like this: 

PROC < procedure name>(< parameter 
list>) CLOSED 

PROC laberprint(name$,address$, 
cityS,state$, zip) CLOSED 

COMAL also allows you to pass 
values back to the calling statement. 
Simply include the keyword REF be- 
fore any parameter you wish to be a 
"two way" parameter. That variable 
will then be called by "reference", and 
used as an alias for the matching vari- 
able in the calling EXEC statement. 
The variable name is still considered 
local and won't conflict with any vari- 
ables with the same name in the main 
program. And the variable name called 
by reference does not have to be the 
same as the one in the calling state- 
ment; in fact, it usually will be differ- 
ent. As an example, let's illustrate how 
to input some text, and then convert 
any characters that are not a digit into 
a period and each digit into the letter D: 

DIM reply! OF 80 

INPUT "Enter some text including dig- 
its:": reply$ 
EXEC convert(replyS) 
PRINT "Converted it now looks like 
this:";reply$ 

PROC convert(REF text$) CLOSED 
FOR temp: = 1 TO LEN(text$) DO 
IF textS(temp) IN "0123456789" 
THEN 

text$(temp):="D" 
ELSE 

text$(temp):="." 
ENDIF 
ENDFOR temp 
ENDPROC convert 

Now here is a sample run of this 
program: 

RUN 



\yr-^ 
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Enter some text including digits: 

ABC123XYZ5 

Converted it now looks like this: 

...DDD...D 

In addition to illustrating the use 
of two-way parameter passing, the 
example shows how a part of a string 
can be changed without affecting the 
rest of the string. You also can see how 
automatic structure indenting in- 
creases program readability. 

A CLOSED procedure can also share 
variables with the main program via 
the IMPORT statement. The IMPORT 
statement is actually part of the proce- 
dure. A list of variable names is included, 
all of which will be shared with the 
main program: 

IMPORT name$,score 

Version 2.00 takes all the power and 
flexibility of procedures and functions 
and adds the capability of allowing them 
to be external to the calling program. 
This means that you can have all of 
your most used procedures on one disk. 
As long as this disk is in the drive, your 
programs can use any of the procedures 
on that disk at any time by simply in- 
cluding only the PROC header, ending 
with the word EXTERNAL and the 
correct file name: 

PROC <procedure name>(<param- 
eter list>) CLOSED EXTERNAL 
<filename> 

PROC quicksort) left, right, REF 
namesSf ) ) CLOSED EXTERNAL 
"quicksort.e" 

An external procedure is retrieved 
from disk only when it is needed. And 
as soon as it is finished executing, it is 
removed from memory. Thus external 
procedures in effect give you a virtual 
memory system. Plus, now when you 
update your procedure, you only need 
to update it once on your master pro- 
cedure library disk. Then every pro- 
gram calling it will be using the most 
up-to-date version of each procedure. 
.And finally, your programs will be much 
smaller, now that the procedures do 
not need to be redundantly coded in 
every program that uses them. This 
will allow more programs to be stored 
on a disk. 

With external procedures and func- 
tions, program chaining, machine code 
linking, and advanced error handling, 
CORAL has progressed beyond a lan- 
guage only for beginners. Beginners 
will still find it most enjoyable, and later 



will be happy to learn about all the 
advanced features. 

Some Other Advanced 
Features 

Some of the advanced features now 
available in COMAL include things 
taken from PASCAL and ADA, as well 
as things unique to COMAL. A whole 
array can be written to disk with one 
statement. Later an array of similar 
dimensions can be initialized with that 
disk file, also using only one statement. 
Sequential files can be read and written 
in two different ways. One method, of 
course, is compatible with files written 
by BASIC, allowing you to access files 
from BASIC programs you already have. 
The other method uses a character 
count for text records, allowing the 
text itself to contain any of the ASCII 
characters, including those usually 
restricted by BASIC'S method. 

COMAL now includes a "time and 
date stamping" feature that is very 
useful. Each time a file is stored on 
disk, it includes the system time and 
date. Thus if you have three different 
versions of a program on one disk, but 
don't remember which is the latest 
version, you now can check the time 
and date stamp on each file, and easily 
determine which is the latest version. 
An enhanced directory listing can now 
also include the time and date that each 
file was stored on the disk. Backup 
programs can also use this information, 
to backup only the files that have been 
added or changed within the last week, 
making a weekly backup much easier, 
as well as requiring less time and 
fewer disks. 

The advanced INPUT facility that 
COMAL now includes is remarkable. 
It provides complete protection from 
having a user messing up a formatted 
screen during input, without your 
having to write complex procedures 
yourself to control the input. The 
INPUT statement now does not accept 
characters that obviously should not 
be included in any input request. Thus 
a cursor up or cursor down is ignored. 
Home cursor has been redefined to 
mean "put the cursor back to the first 
position of the input field". Clear screen 
has been redefined to do the same as 
home cursor, but also erases all the pre- 
vious input in that field, giving you a 
fresh start. COMAL also will not allow 
a user to go into quote mode or insert 
mode during an INPUT request. Re- 
verse field is ignored as well. 

If you think this is fantastic. COMAL 
expands it even further with the INPUT 



AT statement. This statement allows 
you to specify at what position on the 
screen the input is to start and how 
many characters at most will be ac- 
cepted. Thus with this one statement 
you can specify that the input is to start 
at row 10 position 5 and cannot be 
more than 6 characters long. Even a 
beginner can now produce some really 
professional bullet-proof programs 
without too much effort. 

In addition to advanced INPUT 
features, COMAL also provides some 
advanced OUTPUT features. It includes 
PRINT USING, which unfortunately 
was never implemented in CBM BASIC. 
It also allows easy switching from out- 
put to the screen to output to the 
printer (output can also be directed 
to a disk file) , TAB and ZONE work the 
same on both screen and printer (not 
so in CBM BASIC). And if you have an 
ASCII printer (any non-Commodore 
brand) you may already realize that 
PET ASCII is not quite the same as stan- 
dard ASCII. COMAL includes an option 
to automatically convert PET ASCII 
to standard ASCII on any printed output. 
COMAL also allows the option of send- 
ing a line feed with every' carriage 
return. Some printers need it while 
others can't handle it. 

Value assignment to variables is 
more advanced than CBM BASIC. 
COMAL precedes the equal sign in as- 
signments with a colon ( : = ) as does 
PASCAL. This makes it easier to distin- 
guish between an assignment and a 
comparison. However, you do not have 
to type in the preceding colon: COMAL 
will add it for you. COMAL allows in- 
crementing and decrementing a vari- 
able the same way as BASIC, but also 
includes an ALGOL-like method. Just 
precede the plus or minus sign with a 
colon and it becomes an increment or 
decrement symbol, consistent with the 
colon before the equal sign. For exam- 
ple, here is how to subtract your money 
bet from your total money: 

BASIC: T=T-B 

COMAL: TOTAL: -BET 

String concatenation is also possible 
using this shortcut: 

BASIC: TS=TS+R$ 

COMAL: TEXTS: + REPLYS 

COMAL also includes both TRUE 
and FALSE as system constants. FALSE 
is always equal to and TRUE equal to 
1. When you are using a TRUE/FALSE 
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comparison, it is much easier to follow 
and is less ambiguous if you use the 
word TRUE or FALSE rather than the 
numbers or 1. COMAL also includes 
some system variables that are very 
useful. EOD is set to TRUE when the 
last data item is read from data state- 
ments. EOF is set to TRUE when the 
end of file is encountered in an input 
data file. COMAL also includes a state- 
ment to disable the stop key and a sys- 
tem variable, ESC, that then is set to 
TRUE while the STOP key is depressed. 
Your program can then use the STOP 
key for any function you wish. 

In addition, COMAL provides an ad- 
vanced error handling system that you 
can use in your programs. Now, if your 
program encounters a run-time error 
(like "file not found"), it can take ap- 
propriate actions rather than just 
stopping with an error message. 

The concept of a "package" from 
ADA has also now been included in 
COMAL. A package is a self-contained 
system complete with initialization 
and its own procedures and functions, 
which can be global or private. A pack- 
age is an advanced technique, taking 
the external procedure one step fur- 
ther. Most users will not create their 
own packages, but you may find many 
application programs using them, or 
even software houses selling packages, 
just as they now market too! kits 
for BASIC. 

Finally, if you are using a Commo- 
dore 64, both versions 0.12 and 2.00 
have been specially adapted to control 
the graphics features of the computer 
directly from COMAL (no more PEEKs 
and POKEs). This includes high resolu- 
tion graphics, turtle graphics (similar 
to those in LOGO), and sprite control 
commands. Version 2.00 also includes 
similar commands to control the sound 
synthesizer features. These features 
alone should lead the way for COMAL 
to replace BASIC. C 
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COMAL Interpreters 

All versions of CBM COMAL were 
written by UniComal Denmark ApS, 
formerly part of Instrutek. Both CBM 
COMAL versions 0.12 and 1 .02 are 
in the public domain. If you don't 
know someone who can make you 
a copy, they are available on the 
COMAL Handbook disk for S15 from 
Reston Publishing In Reston, Vir- 
ginia, or the COMAL Interest Group 
in Madison, Wisconsin. {See below 
for addresses of these and other 
resources,) 

The piug-in COMAL ROM board 
is available from Instrutek or the 
COMAL Interest Group. It can be 
either standard (version 1.02) or 
deluxe (version 2.00). 

Distribution arrangements for 
CBM COMAL version 2.00 and the 
special adaptations for the Commo- 
dore 64 computer had not yet been 
finalized when this article was writ- 
ten. Hopefully the disk versions will 
also be placed in the public domain 
and thus can be included on the 
COMAL Handbook disk mentioned 
above. The CBM COMAL version 
2.00 cartridge for the Commodore 64 
may be available from Commodore 
some time in the future. 

COMAL Books 

"COMAL Handbook by Len 
Lindsay, Reston Publishing. 

''Beginning COMAL by Borge 
Christensen, Ellis Horwood Pub- 
lishing. 

"Structured Programming With 
COMAL by Roy Atherton. Ellis 
Horwood Publishing. 

*Foundations in Computer Studies 
With COMAL by John Kelly. Educa- 
tional Company of Ireland Limited. 

Available soon: 

"Graphics and Sound With COMAL 
on the Commodore 64 by Len 
Lindsay. Reston Publishing. 

COMAL Information 

"COMAL Catalyst, newsletter, 

Gerald Hasty Company. 
"COMAL Bulletin, newsletter. Ellis 

Horwood Publishing. 
"Riomhiris na Scol, newsletter. 
"Information About COMAL, 

COMAL Interest Group. 

Resource List 

"Borge Christensen; States Training 
College, Ostergade 65, DK-6270 
Denmark. 



"COMAL Bulletin; Editor, Roy 
Atherton: Computer Education 
Centre, Bulmershe College of 
Higher Education, Reading, Berk- 
shire, U.K. 

'COMAL Catalyst: Publisher, 
Gerald Hasty; 5130 E. Charleston, 
Suite 5-315, Las Vegas, NV 89122; 
702-452-3368. 

"COMAL Catalyst; Editor, Len 
Lindsay; 5501 Groveland Terrace, 
Madison, Wl 53716; 608-222-4432. 

*COMAL Interest Group; 505 Conk- 
lin Place, Madison, Wl 53703. 

'COMAL Users Group USA: 5501 
Groveland Terrace, Madison, Wl 
53716; 608-222-4432 (include 
Self Addressed Stamped Envelope 
for reply). 

* COMAL Users Group England; 
John Collins; 4 Grimthorpe House, 
Percival Street, London, EC1V 
OB5.U.K. 

*COMAL Users Group Alberta; 
% Tom Garraway; Division of 
Educational Research Services, 
University of Alberta, Edmunton, 
Alberta. Canada T6G 2G5. 

"Educational Company of Ireland 
Ltd.; Ballymount Road, Dublin 12 
Ireland. 

"Ellis Horwood Limited; Market 
Cross House. Cooper Street, 
Chichester. West Sussex, P019 
1EB.U.K. 

"Instrutek; Christiansholmsgade, 
DK8700, Horsens, Denmark; 
Phone: 05 61 1100. 

"IPUG; Mick Ryan; 164 Chesterfield 
Drive, Riverhead, Sevenoaks, 
Kent, U.K. 

"Reston Publishing; 11480 Sunset 
Hills Road, Reston, VA 22090; 
703-437-8900. 

"Riomhiris na Scol; Colaiste an 
Spiorald Naomh, Bishopstown, 
Cork, Ireland. 

"UniComal Denmark ApS (See 
Instrutek). 



More Next Issue 

Next issue f will explain how easy 
it is to control the graphics and sound 
en the Commodore 64 computer 
using the built-in commands and 
functions of COMAL. If you have any 
comments on COMAL, please let 
me know. If you like COMAL, please 
tell everyone about it, especially the 
schools in your area. Help spread 
the good news. 
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Parti 



Hondafli 
Thoughts 

Random and pseudorandom numbers can be 
useful programming tools for many applications. 
This first part in our new series explains a little 
about what random numbers are and how to use 
them to your advantage. 



BY MARK ZIMMERMAN 



What This Series 
of Articles is About 

"Random Thoughts" will be a series 
of articles about computing centered 
on the theme of random numbers 
and their uses. J will talk about how 
to generate random numbers, the 
different types of random number 
sequences and their applications, 
the physical systems that can be sim- 
ulated using random numbers, and 
much more. 

The goal of "Random Thoughts" is 
to give you mental tools for working 
with random numbers in your pro- 
grams, and to suggest ideas for further 
development, I hope that 1 will be able 
to use "we" instead of "1" in future 
columns — so please write in ( ''A Com- 
modore Magazine) with your thoughts, 
questions, answers, and comments! I'll 
try to respond to all letters. I'll also 
try to include something for everyone 
in each article, from novice through 
"hacker" through computer scientist/ 
mathematician. 

Getting Started 

First, if you've never done so, turn 
your computer on and generate some 
random numbers. In BASIC, try: 

FOR 1=1 TO 10: PRINT RND(l): 
NEXT I 
You should get ten numbers on the 
screen, all different, with no apparent 
pattern among them except that all 
lie between and 1. Try executing 
the same statement again; you'll get 



10 other numbers in the same range. 
What's happening? 

The BASIC function RND is unlike 
all the other BASIC functions (SIN, 
SQR, EXP, etc.) in that it doesn't seem 
to give a predictable answer every 
time. (Actually, it is predictable; more 
on this later!) The RND function also 
has a strange dependence on its argu- 
ment, the number in parentheses after 
it. If you say 

PRINT RND (-1) 
you'll get a not-at-all random result; 
try it a few times. Asking for RND 
of any negative number similarly 
acts oddly. 

Here's the secret: with a positive ar- 
gument, RND ignores the number in 
parentheses after it. Instead, it takes 
the previous result of a call to RND 
and begins to manipulate it. (If you 
haven't called RND before but have 
just powered-up the computer, there's 
a fixed initial value assumed for the 
previous result.) RND takes the bytes 
of the old result and shuffles them 
around, adds and multiplies and trun- 
cates, and creates a new result that has 
very little resemblance to the old one. 
It then stores the new number in mem- 
ory (to be used the next time RND is 
called) and finally gives the new re- 
sult to you, to do with as you please. 

If you call RND with a negative 
argument, as in PRINT RND (-17), 
you don't get a random result. RND 
takes the negative number you give it, 
scrambles it up a bit, and replaces the 
old previous result in memory with 
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that. Thus, giving RND something 
negative allows you to conveniently 
reset that memory space. 

So, if you're going to write a game 
program, for example, and want the 
game to go differently every time you 
run it, it's not enough to just use RND 
to generate random numbers. The 
sequence you get will be the same 
every 1 time the game is started after 
powering-up the computer. You have 
to call RND once with a negative ar- 
gument when you're beginning the 
game, and that negative argument 
should be different in order to get a 
different game. You can ask the player 
to give you a number (like the date 
or time) or you can include a state- 
ment like 

X = RND (-T1) 
which takes the time (in 60ths of a 
second), since the machine was turned 
on from variable TI, makes it negative, 
and gives that to RND. Just don't use 
the value X that you get for game con- 
trol; discard it, and thereafter call 
RND(l) to get a good random number. 

Random or Pseudorandom? 

Random numbers, especially in 
connection with computers, raise a 
philosophical question: Are they really 
random? First, though, what do we 
mean by "random"? For my purposes, 
there are two important criteria of 
randomness: distribution and inde- 
pendence. Let me explain what I mean 
by each in turn. 

First, random numbers have to have 
some sort of controlled distribution 
or range. The RND function of BASIC 
gives you results in the range between 
and 1; casting a die gives you results 
from the integers 1, 2, 3, 4, 5, and 6. 
Sometimes the distribution is not 
equally likely throughout the range; 
examples include the values you get 
from throwing two dice and adding the 
spots shown (where 7 is more likely 
than 11), or the distribution of money 
or intelligence in a population, where 
there are a lot of people near some av- 
erage value and fewer and fewer as one 
moves away from that average. 

The second important quality that 
random numbers must have is some 
sort of controlled independence from 
each other. The independence may be 
total, so that knowing all the previous 
numbers tells you nothing about the 
next one. Or. it may be partial inde- 
pendence, so that previous numbers 
bias the likelihood for the next number 
one way or another. Radioactive decay 
seems to be totally independent for 



isolated atoms; the results of tossing 
a coin don't seem connected to each 
other, either. On the other hand, if 
your parents are tall, you're likely to 
be tall too. If you are playing Monopoly 
and have a piece on Boardwalk, the 
next place you stop is not likely to be 
the same as it would be if you were 
starting out in jail. 

Later columns in this series will 
discuss specific examples of random 
number distributions in detail. Many 
important distributions have names of 
famous mathematicians (Gauss, Pois- 
son, etc.) attached to them; these dis- 
tributions frequently have significant 
applications in systems of physical 
interest, which we'll also discuss. We'll 
explore how to take one distribution of 
random numbers (such as those pro- 
duced by RND) and turn them into 
another distribution. 

But to return to the philosophy: 
How can a computer, which does only 
exactly what you command it and which 
is perfectly predictable, ever produce 
randomness? And how can nature, 
which obeys well-defined physical 
laws, be random either? 

Well, as far as scientists know today, 
some areas of nature really are random. 
Quantum mechanics, the theory of 
very small systems such as atoms and 
nuclei, seems to demand that there 
be an intrinsic, unavoidable uncer- 
tainty in the results of some measure- 
ments. This isn't a "classical" effect, 
and our lifetime instincts, developed 
from working with large, macroscopic 
objects like stars, bowling balls or 
grains of sand, simply don't apply 
to electrons or photons. 

But even excluding quantum 
mechanical effects, there seems to be 
a lot of randomness in the world. The 
stock market, or next week's weather, 
or the shuffled cards in a deck seem 
to be more or less random and unpre- 
dictable. But if you could follow each 
card in each shuffle, or follow each 
gust of wind, or each decision to buy 
and sell shares, you would find that 
they all are simply obeying fairly 
simple (or not-so-simple) laws. The 
systems are just so complicated, con- 
tain so many parts, or depend so 
critically on tiny differences, that it 
becomes humanly impossible to keep 
track of all of the details. So, even 
systems that are deterministic and 
predictable in theory act randomly for 
all practical purposes. 

A computer generates random 
numbers in the same way. When you 
call the RND function, the bits in the 
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previous random number you got are 
scrambled about and manipulated in 
a deterministic, but complicated pat- 
tern. The outcome is another number, 
which has only a very subtle relation- 
ship to the last one, if the RND func- 
tion is doing its job. 

These numbers thus shouldn't be 
called random in the strictest sense 
of the word. They are pseudorandom; 
that is, they appear to be random, 
but aren't. 

Pseudorandom numbers actually 
have some advantages over truly 
random numbers in computer pro- 
gramming. The main plus of a pseudo- 
random sequence is that you can 
recreate it, if and when necessary. 
If you are trying to debug a compli- 
cated program that contains "random" 
elements, it helps a lot to be able to 
change parts of it and then run exactly 
the same tests again, without having 
to worry about the fluctuations that 
a truly random sequence of numbers 
would introduce. Pseudorandom num- 
bers can also be valuable in construct- 
ing codes or ciphers, for transmitting 
information that needs to be kept se- 
cret. The transmitter can generate a 
pseudorandom noise sequence and use 
it to cover up the message being sent, 
and the receiver can generate the 
same sequence and use it to recover 
the original signal. 

We'll return to this question of ran- 
dom vs. pseudorandom in later col- 
umns of this series. A related problem 
is, "How can one recognize random- 
ness?" That is, is the series: 1, 2, 3, 
4, . . . random? It doesn't look very ran- 
dom, but perhaps it came up in the 
course of throwing a die, or perhaps 
in the decimal expansion of pi. Would 
it be random in those cases? Think 
about it... 

Closing Hints 

We'll finish this month's comments 
with a couple of practical hints for 
working with random numbers in your 
programs. Just because random num- 
bers are so unpredictable, they fre- 
quently make finding program bugs 
difficult. In fact, many programs are 
never tested out thoroughly enough 
to see some subtle bugs involving 
random numbers, and thus are never 
really "right". 

One excellent technique for debug- 
ging a program section that incorpo- 
rates random variables is to consider 
the extremes. That is, imagine what 
will happen if RND returns a value just 
barely greater than 0, or just barely 



less than 1. For instance, to get a ran- 
dom integer in the range 1 through 
6, one frequently sees the BASIC 
statement 

X=1 + INT(6*RND(1)) 
I have given this statement in its 
correct form. If RND(l) is barely 
above 0, X will be 1; if RND(l) is barely 
under 1, X will be 6. But in the heat 
of programming, it's easy to forget 
to add the "1" to INT(6*RND(1)). 
Sometimes, when dealing with inte- 
gers over a range other than 1 to N, 
it's also easy to get the multiplier in- 
side the INT function wrong. The 
"consider the extremes" test will help 
avoid such mistakes. 

A second valuable debugging tech- 
nique is to try a smaller case. Instead 
of testing out your card-shuffling 
technique on a 52-card deck, try it out 
mentally on a 2- or 3-card deck first!! 
This way, you can easily spot an over- 
looked case. In the card-shuffling 
example, one frequently sees excellent 
programs that are based on the tech- 
nique of exchanging cards in an or- 
dered deck to get the shuffled output. 
This is all very well and good, but 
when designing such a routine, don't 
forget to give a card a chance to end 
up in the same place it started! If a real 
deck is shuffled, there is a chance for a 
card to still be in its original location; 
there's even a tiny chance for the 
whole deck to end up in its original 
order. A shuffling program that doesn't 
allow that possibility is flawed. 

So, there are two simple but pow- 
erful tools for checking your random- 
based program routines: consider 
the extremes, and try a smaller case. 
Use them! 

Next time, I'll begin looking at how 
you can take the uniformly distributed 
numbers given by RND and transform 
them into the distribution you need. 
I'll also give some more examples of 
real-life random systems and how you 
can model them on your computer. C 



COMMODORE: THE MICROCOMPUTER MAGAZINE June/July 1983 51 



Starting 
with 







Parti 



Jeff Hand, whom you may 
already know as the friendly 
(not to mention helpful) 
Systems Operator on the 
Commodore Information 
Network, explains the 



"think and the relationships 
among several different 
number systems commonly 
used with micros. 



BY JEFF HAND 



Many times when I'm explaining 
computers to beginners I'm con- 
fronted with the question, "How does 
the computer think?" That's a pretty 
tough question to answer with just 
a short explanation, so sometimes I 
get frustrated trying to get my point 
across. I thought a series of articles 
might be a good format for presenting 
this information. It is not meant to be 
in anyway definitive, but rather to help 
you get your feet wet. Welt, here we go. 





I'm sure most computerists know 
that computers "think" with zeros 
and ones. That's true, but how? The 
simplest place to start is with a transis- 
tor. Commodore computers use what 
is known as TTL, which stands for 
transistor-transistor logic. Does this 
mean the creation of those ones and 
zeros is done with mirrors? No, tran- 
sistors. Here is what an engineer draws 
to represent a transistor: 



3 



volts /J 


JK 5 volts 


binary +| 


J 1 binary 


off V 


V on 



You don't have to understand how 
the transistor works to understand 
what it does. As far as the computer 
is concerned the transistor has two 
possible states: off and on. These two 
states can be interpreted in a number 
of ways. They can be interpreted on a 
numerical level as a (off) or 1 (on); 
on a switch level as switch off or switch 
on; or on an electronic level as volts 
(off) or 5 volts (on). Usually "on" is 
represented by a shaded transistor, 
and "off" by a non-shaded transistor. 

So far it seems simple enough, 
right? But you knew it wasn't going 
to stay that way, didn't you? We could 
expand on each of these concepts, but 
for our purposes (to understand pro- 
gramming) we'll stick to the numeri- 
cal representations. Now, what kind 
of system can be built with just zeros 
and ones? The system is called binary 
or base 2 . But before we go into our 
explanation of binary, let's backtrack 
to something we are more familiar 
with — the decimal system. For pur- 
poses of illustration I would like to 
represent the decimal number system 
as a car mileage counter. 















1000's 


100's 


10's 


l's 


10 3 


10 2 


10 1 


10° 



When you have traveled one mile 
the odometer will read: 

0001 

and continue 0002, 0003, 0004 up to 
0009 to represent each mile. When you 
reach ten miles the odometer will shift 
to the next column: 

0010 



and then continue counting 0011, 
0012, 0013 up to 0019. 

The same kind of system that was 
established for the tens can also exist 
in a binary "odometer" system as fol- 
lows (remember that each transistor 
represents a zero or a one): 



2 3 



2 2 



2 1 



2° 



Here all transistors are off and have 
volts. Now when we travel one mile, 
the binary "odometer" looks like this: 




Two miles looks like this: 




Three miles: 



^^ 



and so on. 

From this you can see how comput- 
ers build a number system based on 
electronics. We imposed the number 
system on the electronics and now the 
computer can do all its operation in a 
binary format. This is the bottom level 
in computers. From this all the other 
systems in computing are built. 

To help you understand this con- 



cept, here is z 


table of number system 


equivalents: 






Binary 


Decimal 


Hexadecimal 


(for 
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computers) 
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0001 
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0010 
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0011 
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0100 
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0101 
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5 
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1000 
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1001 
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1010 


10 
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1011 


11 
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1100 


12 
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1101 


13 


D 


1110 


14 
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15 
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10000 


16 


10 


10001 


17 
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The hexadecimal system was built as 
a compromise between computers and 
people, because the binary system can 
get very confusing sometimes, espe- 
cially when the number gets very large 
or small. To avoid confusion, the hexa- 
decimal number system was created. 
The system uses a base of 16; to 9 
and A (10) through F (15). Notice the 
relationship between binary digit group- 
ing and the hex numbers. 



0001 

1 


1011 
B 


0111 (Binary) 

7 (Hexadecimal) 


1010 
A 


0100 
4 


1111 (Binary) 
F (Hexadecimal) 



Hexadecimal allows easy translation 
from binary so the binary is under- 
standable to people. You can build any 
number system, but these are the ones 
used in microcomputers. 

Converting Number 
Systems 

The easiest way to see the relationship 
between numbers is by adding up the 
weighted or power values. For instance, 
take the decimal number 53,218: 



5 

10 4 



3 

10 3 



2 
10 2 



1 
10 1 



10° 
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It's easy to see that this decimal 
number is fifty-three thousand two 
hundred-eighteen, because we are very 
familiar with the decimal system and 
can add up the numbers ourselves 
quickly. But let's take a closer look 
at how we did it. Let's examine the 
weight or value of each column: 

10 4 = 10,000 (ten thousands) 

10 3 = 1,000 (thousands) 

10 2 = 100 (hundreds) 

10 1 = 10 (tens) 

10° = 1 (units) 

53,218 = (5 x 10 4 ) + (3 x 10 3 ) + (2 x 
10 z ) + (1 x 10 1 ) + (8 x 10°) 

This weighted system can also be 
applied to binary and hexadecimal as 
follows: 



For example, the largest number you 
can generate without some of the 
more advanced techniques I'll show 
you in another article is 1111 1111, 
which is FF in hex or 255 in decimal. 

We've covered hex-to-binary, 
binary-to-hex, hex-to-decimal and 
binary-to-decimal conversions. So the 
only ones we've missed are decimal- 
to-binary and decimal-to-hex. There 
are several methods for doing these 
two conversions, but I prefer a method 
I'll call trial-and-error, for lack of a 
better term. Once you understand the 
relationship between the number sys- 
tems you'll be able to do this quickly in 
your head (with some practice). The 
first step is to write down the decimal 
number. Next write out all the hex or 
binary weights that are less than the 
decimal number as follows: 



1 





1 


1 


1 


53 (decimal) 


2 4 


2 3 


2 2 


2 1 


2° 


32 16 8 4 2 1 (binary) or 16 1 
(hexadecimal) 



2< = 16 2 3 = 8 2 2 = 4 2 1 =2 2° = 1 

To find out what this number is 
equivalent to in decimal, all we have 
to do is add up the weights: 

(1 x 2 4 ) + (0 x 2 3 ) + (1 x 2 2 ) + 
(lx2 1 ) + (l x2°) 

16 + 4 + 2 + 1 = 23 (decimal) 

The same procedure can be applied 
to a hexadecimal number: 

2 4 F A B 

16 4 16 3 16 2 16 1 16° 

16 4 = 65,536 16 3 = 4096 16 2 = 256 
16 1 = 16 16° = 1 

(2 x 16 4 ) + (4 x 16 3 ) + (F x 16 2 ) + (A 
x 16 1 ) + (B x 16°) 

(2 x 65,536) + (4 x 4096) + (15 x 
256) + (10 x 16) + (11 x 1) = 131072 
+ 16384 + 3840 + 160 + 11 = 151,467 

That's an awfully big number! But 
we don't usually have to worry about 
hexadecimal numbers of this size on 
the microcomputer because there is an 
eight-bit limitation. (The word "bit" is 
an abbreviation for "binary digit". For 
example 0001 is a grouping of four 
bits and 0001 1111 is eight bits. Each 
grouping of eight bits is called a byte.) 



For the binary numbers put a 1 
under each of the numbers that will 
contribute to adding up to a decimal 
number 53: 

32 16 8 4 2 1 

1 1 1 1 This is the binary 
equivalent of 53. 

To find the hex number determine 
how many times 16 will divide evenly 
into 53 without exceeding it. Sixteen 
goes into 53 three times with five re- 
maining. Therefore the hex number is 
3 (times 16) + 5 (times 1) or 35. Try 
practicing these conversions until you 
become proficient. 

Now that we've laid the groundwork 
for understanding the binary number 
system, let's talk a little about how the 
computer uses this information. Bi- 
nary numbers are the bottom line 
when you're working with computers. 
Everything in the computer is built up 
from and eventually must be reduced 
to binary in order to be understood by 
the computer. But how the computer 
interprets the binary number depends 
on the context. For example, machine 
code, BASIC tokens, CBM ASCII, mu- 
sical notes and screen characters all 
break down to binary' numbers. But, 
depending on the context, a 1000 0111 
can be either the f5 function key in 
CBM ASCII, the READ command in 
tokenized BASIC, the musical note "C" 
or, when POKEd to a screen location, 



a reversed "G". The context is estab- 
lished by the operating system of 
your computer. 

Let's just take one example to show 
you how binary numbers are used to 
make the computer "think". The in- 
struction set is all the commands that 
the 6502 is capable of executing. Each 
of these commands is a binary number. 
The 6502 microprocessor does not re- 
cognize decimal or hex numbers. For 
example, when the 6502 chip "sees" the 
binary number 10101001 it knows to 
"put the next number seen into the com- 
puter's accumulator". If the computer 
"sees" the 11011000 binary number 
it knows to "add one to the Y register". 

To take this concept a step further — 
a program is a logical sequence of in- 
struction codes (along with data and 
memory locations) that will make the 
computer perform a particular task. 
Here is a short program that will add 
two numbers together from register 
30 and 31, then place the result into 
register 32. 



Binary 
1010 0101 
0001 1110 
0110 0101 
00011111 
1000 0101 
0110 0010 



Hex 

A5 

30 

65 

31 

85 

32 



As you can see the binary code is dif- 
ficult to read and the hex is slightly 
easier to read. 

The next level above this is assembly 
language. This program in assembler 
would read as follows: 



LDA 


$30 


ADC 


S31 


STA 


$32 



This is easier for people to understand, 
but the computer must still translate 
the code down to ones and zeros. And 
BASIC, which is at an even higher level 
than assembler, must also go through 
this translation process down to the 
binary level. 

Hopefully, this will make computers 
more understandable to you, but we've 
just scratched the surface. In the next 
few articles, we'll touch on computer 
logic, some assembly language and 
eventually set up a model for 6502 
computer architecture. 
So stay tuned. C 
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If you've never had a bug in a program, you can stop reading 
now. You're either a being from another world or you haven't 
ever touched a program, so it won't mean much to you 
anyway. However, for those mere mortals who have been 
involved in programming, even superficially, this article will 
be an immense help in finding — and exterminating — those 
"annoying, pesky, elusive" little creatures that inevitably foul 
up your best work. 



BY JIM GRACELY 

Nothing in the world of program- 
ming can match the feeling of writing 

and entering a 150-line program 

and watching SYNTAX ERROR light up 

on the screen . , . over .... and over 

and over. These errors, which seem to 
evolve from the program, are affection- 
ately referred to as BUGS (not short for 
anything). The name is quite appropri- 
ate. In fact they are everything that bugs 
should be: they're annoying, pesky, 
elusive, and whenever you completely 
wipe them out of one place, they mys- 



teriously appear somewhere else. This 
article will examine bugs in an attempt 
to answer three questions about them: 
1) where they come from, 2) how you find 
them and 3) how to exterminate them! 

Bugs that appear in programs can 
be divided into three categories: syn- 
tax errors, procedural errors and ana- 
lytical errors. 

Syntax Errors 

Syntax errors are probably the most 
common of all bugs. They are espe- 
cially fond of magazine programmers 
(people who enter the long programs 



printed in magazines). Most of the 
time these errors are simply typing 
mistakes, but of course BASIC doesn't 
know that. 

BASIC is programmed to recognize 
specific arrangements of characters as 
commands, and specific arrangements 
of commands as program lines. If a 
program line contains anything other 
than these specific arrangements, a 
syntax error will be generated when 
the line is executed. 

Syntax errors are generally easy to 
find because BASIC keeps track of the 
line it is working on, and this line num- 
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ber is included with the error message. 
The most common syntax errors are 
a misspelled command, an "0" and zero 
switched, and a semi-colon in place 
of a colon. 

There is only one syntax error that I 
know of that will not include the cor- 
rect line number. If you make a syntax 
error in a DEF FN line, the syntax error 
will point to the line which contains the 
function call and not the DEF FN line. 

Syntax errors can be prevented by 
carefully entering each line of a pro- 
gram. They can be exterminated once 
they appear by using the various edit- 
ing capabilities of the Commodore 
computers. 

Procedural Errors 

Procedural errors occur when 
all the syntax of a program line is 
correct, but the line is attempting 
to do something that is not allowed. 
For example, if there is no line 20 in 
your program, the line GOTO 20 will 
be a procedural error. 

After BASIC checks a program line 
for syntax errors, it tries to execute the 
line. Any errors that occur now are 
within one of the BASIC command 
procedures (GOTO, READ, IF . . THEN 
etc.). BASIC keeps track of which 
procedure it is in, and uses that infor- 
mation to generate an error message. 
Like syntax errors, procedural errors 
will generate an error message in- 
cluding the line number that BASIC 
was working on. Unlike syntax errors, 
however, the reasons for a procedural 
error are not always as easy to detect. 
All the procedural errors and their 
causes are listed in the user guides for 
the VIC 20, Commodore 64 and PET/ 
CBM computers. 

The following list highlights some 
of the errors which may be harder 
to detect: 

1) An "illegal quantity" error may be 
caused by POKing a memory location 
with a value of less than or greater 
than 255. 

2) An "out of data" error may be 
caused by attempting to READ a list of 
data a second time without first using 
the RESTORE command. 

3) A "RETURN without GOSUB" error 
may be caused by letting the program 
run through a subroutine when the 
program should have ended. This will 



occur most often when subroutines 
are at the end of a program. 
4) A "NEXT without FOR" error may 
be caused by switching variables in the 
NEXT statements (e.g., NEXT X in- 
stead of NEXT Y). BASIC will figure 
out which variable goes with each 
NEXT statement if there is no variable. 
This is an easy way to avoid this cause 
of an error. 

Many procedural errors that may 
appear in a program can be found by 
examining the line referred to in the 
error message. Sometimes, however, 
a procedural error is simply the result 
of some other error. A "divide by zero" 
error may be easy to find, but its cause 
may be an error which falls into the 
next category. 

Analytical Errors 

Analytical errors are the cockroaches 
of programming bugs. These are errors 
that BASIC doesn't detect, and for this 
reason, no error messages are gener- 
ated. Analytical errors are the hardest 
to find, the hardest to figure out and 
the hardest to exterminate. These 
errors may be caused by anvthing from 
an endless loop (10 X = 5 : GOTO 10) 
to a basic flaw in the equations the 
program is using (if you want the vari- 
able T to be the product of X and Y, 
the program line; T = X + Y will be 
an analytical error). There are three 
possible results of an analytical error: 

1) A procedural error: As mentioned, 
a "divide by zero" error may be the 
result of not flagging a zero value. 
The following program is an example: 

10 T=3 

20 X=5 

30 R=X/T 

40 T=T-l:X*X-! 

59 IRK1THEN END 

60 GOTO20 

If you run this program you will get 
a "divide by zero" error in line 30. The 
error however, is not really a problem 
with line 30. The problem with the pro- 
gram is actually in line 60; the GOTO 
should be to line 30. 

2) Incorrect results: This problem is 
often very frustrating. The program 
runs without any errors, but the result 
is wrong. 

3) Nothing: To some people, this is 
the worst thing that can happen when 



they run their program. A program that 
never ends or ends without producing 
any results is the hardest program to 
debug. Without any results at all, it's 
hard to find a starting point for 
debugging. 

In all three of these possible results, 
I've said nothing about how to find 
the bugs causing these errors. There 
are two methods that I will discuss to 
debug a program with analytical errors. 
I call the first method STOP-PRINT 
debugging. The second uses what 
is called a "trace" program. 

STOP-PRINT 
Debugging 

The idea behind this kind of debug- 
ging is to use STOP commands to 
halt program execution and then use 
PRINT statements to print any "active" 
variables. Active variables are those 
variables that change value as the pro- 
gram is executed. By checking the 
value of these variables at various 
places while the program is running, 
the location of a bug may be found. 
Here is one example of using this type 
of debugging: 

10 INPUT "LENGTH IN FEET";R 
20 INPUT "NUMBER OF FOLDS" ;B 
30 R=l 
40 R=R/2 
50 IFR=BTHEN30 
60 R=R+1 
70 GOTO30 

30 PRINT "NEW LENGTH 
IS "R" FEET" 
This program asks for a length (of 
paper, cardboard, etc.) and a number 
of folds. It then computes the new 
length based on this information. At 
least that is what it is supposed to do. 
Enter the program and run it using 
12' for the length and 4 as the num- 
ber of folds. Nothing happens! Press 
RUN/STOP to halt the program. One 
good place to put STOP commands in 
a program is right before an IF-THEN 
statement. This is a place where a 
variable is checked, and before BASIC 
gets it, we want to look at it. So add 
"STOP" to the beginning of tine 50. 
Now run the program using the same 
values. When the program breaks in 
line 50, type the following line. 

PRINT R,A 
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It shows that R= 1 and A equals 6 
(half of 12). Type CONT (for continue) 
and when the program breaks again, 
enter the PRINT line again. This time 
R=l and A equals 3 (half of 6). We 
could do the same thing again, but 
we've already found the problem. Line 
60 adds 1 to the value of R each time A 
is halved. But the second time the pro- 
gram broke, R was still equal to 1. To 
check if line 60 is really working, put a 
":STOP" after line 60, and remove the 
previous STOP added to line 50. Now 
run the program and when it breaks 
type PRINT R. Now R=2. But if R=2 
now, and R= 1 in line 50 then what is 
happening? It seems as if R is being 
reset to 1 each time through the pro- 
gram. This is exactly what is happen- 
ing. Line 70 has a GOTO 30 that resets 
R! This line should be GOTO 40. 

This is just one example of using 
the STOP-PRINT debugging technique. 
Debugging programs is like most skills 
in that the best way to learn is by do- 
ing. In fact, with this particular skill 
it is the only way. There are no secret 
formulas for debugging a program 
and the steps needed for each program 
are different than those for any other 
program. Listed below are some sug- 
gestions and hints for debugging 
programs using the STOP-PRINT 
technique. 

1) The STOP command can be used to 
determine where the flow of a pro- 
gram is not going. To do this, place 
a STOP command directlv after 
each loop (FOR . . NEXT or any 
others) within the program start- 
ing with the first loop to end. Con- 
tinue moving the STOP command 
outward through all of the loops 
until you find a STOP command 
that isn't executed. This allows you 
to concentrate any further debug- 
ging on the loop that is not ending. 

2) Don't use too many STOP com- 
mands at once. One or two is 
enough to keep the debugging 
quick, without getting too confus- 
ing. Two good places for STOP com- 
mands are before an IF.. THEN 
statement and after a NEXT 
statement. 

Trace Debugging 

The second debugging technique, 
which I mentioned earlier, is to use a 



trace program. A trace program will 
"trace" or allow you to follow the pro- 
gram as it is being executed. The most 
advanced trace programs will display 
the changing values of every variable. 
The two programs at the end of this ar- 
ticle are trace programs for the VIC 20 
and the Commodore 64. Both pro- 
grams are basically the same with 
changes to adapt them to either sys- 
tem. This program was originally writ- 
ten by Nick Hampshire to operate on 
the PET, and first appeared in his book 
The PET Revealed. These revised ver- 
sions appear with the kind permission 
of Nick Hampshire. 

This trace program uses the CHRGET 
routine in page zero memory to print 
each character of each line of the pro- 
gram being traced to the screen before 
BASIC gets it. The trace program cre- 
ates a two- (Commodore 64) or three- 
{VTC 20) line field at the top of the 
screen, which displays the current line. 

The program is quite nice for debug- 
ging large programs when you have no 
idea where to start. One of the interest- 
ing features of the program is that it 
displays the value or character(s) read 
by a READ statement. You can also see 
when an IF . . THEN statement is false, 
because if the IF portion is false, BASIC 
won't even look at the THEN portion, 
and only the IF portion is displayed 
on the screen. 




Here are some instructions for 
using the trace program. Enter the 
program for your computer and save 
it. Now type RUN. After a couple of 
seconds the screen will display three 
SYS commands and a POKE location 
that will control the trace program. 
Write down the locations and what 
they are used for. The program resets 
all the BASIC pointers and POKEs the 
machine language program into mem- 
ory. On the Commodore 64, the pro- 
gram resides between 52658 and 53002. 
This preserves all 38911 bytes of BASIC 
ROM for the program to be traced. On 




the VIC 20, the program resides be- 
tween 7337 and 7679. This leaves 
about 3200 bytes of BASIC ROM for 
the program to be traced. 

Type NEW to erase the BASIC por- 
tion of the trace program. Use the in- 
itialize SYS command and then type 
NEW again. This initializes the trace 
program, but still allows normal oper- 
ation of the computer. Now load or 
enter the program you want to trace. 
Use the enable SYS command to turn 
on the trace program, and to give it 
control of the CHRGET routine. Now 
when you type RUN, the trace program 
will display the line BASIC is working 
on. The program being traced will run 
normally, although at a much slower 
rate. RUN/STOP also still functions so 
that program execution can be halted 
at any time. After running the trace on 
a program, use the disable SYS com- 
mand before editing the program or 
loading a new program. When you 
want to trace again just use the enable 
SYS command. 

The speed of the trace program can 
be controlled by POKing various num- 
bers to the POKE location that was 
displayed. The default value in this lo- 
cation is a five. Decreasing this value 
will speed up execution and increasing 
the number will slow down execution. 

Although debugging programs usu- 
ally isn't a lot of fun, it is always a way 
to learn. Understanding why errors 
occur helps to eliminate them from 
your programs, and the less time you 
spend debugging one program, the 
more time there is to work on another! 
The debugging techniques presented 
in this article only reflect my personal 
preferences and are by no means the 
only ways to debug programs. If you 
have your own special technique or 
trace program and would like to share 
it with others, send it in and we'll pass 
it along. C 
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i REM ***TRRCE FOR VIC-20*** 

2 REM ***WRITTEN BV NICK HAMPSHIRE*** 

3 REM ***MOBIFIEB BV JIM GRRCELV*** 
10 E=55 

15 n=2 

190 BRTfl-342, 162, 5, 189, 135, 227, 149,115,202,16,248 
110 BRTA169,239, 133, 131,96, 173,-342, 133,55, 173,-341 
129 BRTR133, 56, 163,255,133,45,160,8,162,3,134,46 
136 DRTR 162, 3, 32, -27 1,298, 249, 202, 298, 248, 32, -271 
140 DRTR32, -271 , 76, 142, 198, 162, 5, 139, -6, 149, 115, 202 
150 DRTR16,2d3, 169,242, 133, 131,96,230,45,208,2,230 
160 DRTR46, 177, 45, 96, 238, 122, 208, 2, 230, 123, 96, 32 
170 DRTR1 13, 0, 3, 72, 133, 215, 133, 72, 152, 72, 166, 53, 165 
180 DRTR57, 197, 251,20S, 4, 223, 252, 240, 106, 133,251 
190 BATR133,33, 134,252, 134,39, 169,5, 133, 110,292,203,253 
200 BRTR 136, 283, 259, 234, 234, 193, 11 9, 298, 244 

219 BATR234, 160, 44, 169, 160, 153, 255, 29, 133, 153, 255, MR 

220 BRTR136,288,244, 132,254, 132,40, 132,41, 132,42 
230 BRTR128,248, 160, 15,6,38,33,39, 162,253, 181,43 
240 DRTR 1 1 7 , 43 , 1 49 , 43 , 232 , 48 , 247 , 1 36 ,16, 238 , 2 1 6 
250 BRTR38, 162,2, 169,43, 133, 106, 134, 105, 181,40,72 
260 BRTA74 , 74 , 74 , 74 , 32 , -44 , 1 04 , 4 1 , 1 5 , 32 , -44 j 1 S6 
270 BRTR105, 202, 16,233,32,-33,32,-38,165,253,197 
230 BRTR122, 240, 55, 165,215,203,4,133,251,240,47 
290 B ATR 16, 42, 29 1, 255, 203, 3, 163, 195, 32, -38, 24, 14<i 
300 BRTR33,41, 127, 170, 169,0, 185, 157, 192,48,3,200 
310 DRTR208,243,209,202, 16,244,185, 157,192,43,6 

329 DRTR32, -32, 209, 293, 245, 41 , 127, 32, -32, 165, 122 

330 BRTR133, 253, 194, 168, 194, 179, 104,40,96, 168, 173 

349 BRTR4, 144, 41, 127,298, 249, 152,96,9,43, 197, 196 

350 BRTR293 ,4,169,32, 298 , 2 , 1 38 , 1 06 , 4 1 , 63 , 9 , 1 28 

369 DRTR 132,1 m , 32 , -54 , 1 64 , 254,153 , @ , 30,1 92 , 1 95 

370 DRTR203, 2, 169, 7, 299, 132, 254, 164, 199, 96, 76 
389 BRTR-255 , 32 , -262 

499 S2=PEEK<E)+256*PE£K<E+1> =31=52+3-344 

419 FORJ=S1TOS2-1 

420 RERBX: IFfC-9ORK=9THEN450 

439 V=X+S2 : X= I NT ( V/256 ) : Z=V-X*256 

449 POKEJ,Z=J=J+l 

450 ROKE,T,X 
460 NEXTJ 

590 PRINT" INITIALIZE WITH SVS(";S1+1?">" 

518 PR I NT "ENABLE WITH SVSC'J 31+56" >" 

520 PRINT'TISRBLE WITH SVS< ";Sl+2">" 

539 PRINT"CHRNGE SPEED WITH POKE" ; 31 +121-0", X" 

609 END 
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1 REM ***TRRCE FOR C64**# 

2 REM ***WRI.TTEN EV NICK HAMPSHIRE*** 

3 REM ***MODIFIED BV JIM GRRCELV*** 
15 D=2 

10@ DRTA-342, 162,5, 139., 162,227, 149, 115,202, 16,248 
110 DRTA169,239,133, 131,96, 173,-342, 133,55, 173,-341 
1 20 DATA 133, 56 , 1 69 , 255 , 1 33 , 45 , 1 60 , , 1 62 , 3 , 1 34 , 46 



130 DflTR 162, 3. 



T) —■~)'7 



271 , 283, 249, 202, 203, 243, 32, -271 



140 DRTA32,-271,76, 142, 166, 162,5, 139,-6, 149, 115,202 

1 50 DRTfi 1 6 , 243 , 1 G9 , 242 ,133,131 , 96 , 230 , 45 , 293 , 2 , 230 

160 DRTR46, 177, 45, 96, 230, 122, 203, 2, 230, 123, 96, 32 

170 BRTfll 18, 0,8, 72, 133,215, 133,72,152,72, 166,53, 165 

180 DRTR57, 197, 251 , 208,4; 223, 252, 240, 106, 133, 251 

190 DflTR 1 33 , 33 , 1 34 , 252 , 1 34 , 39 , 1 69 , 5 , 1 33 , 1 1 , 202 , 203 , 253 

200 DRTR 1 36 , 208 , 250 , 234 , 234 , 1 93 ,110 , 208 ., 244 

2 1 S DRTR232 , 1 60 , 80 , 169, 1 69 , 1 53 , 255 , 3 , 1 33 , 1 53 , 255 , 2 1 5 

220 DRTR136, 203, 244, 132,254, 132, 40., 132, 41 , 132, 42 

230 DRTR 120, 243, 160, 15,6,33,33,39,162,253, 181,43 

240 DRTR117, 43, 149,43,232,48,247, 136, 16, 233,216 

250 DRTR88, 162,2, 169,48, 133, 196, 134, 195, 181,40,72 

260 DRTR74,74,74,74,32,-44, 104,41, 15,32,-44,166 



279 DRTR 195, 2S2, 16, 



32, -38, 32, -38, 165,253, 19" 



280 DRTR122, 249, 55, 165, 215, 203, 4., 133, 251, 248,47 
290 DRTR16, 42, 291 , 255, 208, 8, 169, 105, 32, -39, 24, 144 
390 DRTR33, 41 , 127, 170, 169, 9, 185, 157, 169, 48, 3, 239 
310 DRTR208,243,290,202, 16,244, 135, 157, 169,48,6 
320 DRTR32,-32,209,208 J 245,41, 127,32,-32,165,122 
330 DRTR 1 33 , 253 , 1 94 , 1 63 , 1 94 , 179,194,49,96,1 68 , 1 73 
340 DRTR13, 203, 41 , 255, 298, 249, 152, 96, 9, 48, 197, 196 
359 DRTR298,4_, 169,32.-298,2, 198, 106,41 ,63,9, 123 
869 DRTR 1 32 , 1 99 , 32 , -54 , 1 64 , 254 ,153,9,4,1 92 , 1 95 
379 DRTR298.,2, 169,7,209, 132,254, 164,199,96,76 
330 DRTR-255,32,-262 
409 32=53900 ■ S1-S2+B-344 
419 F0RJ=S1T0S2-1 

429 RERUN: IFX>9ORX=0THEN450 

430 V=H+32 ; f < !=IHT('T , /256) : Z=V-K*256 
440 POKEJ,Z : J=,T+i 

450 POKE J, X 

469 NEXTJ 

590 PRINT" INITIALIZE WITH SVSC"; 31+17")" 

510 PRINT"ENRBLE WITH SVS<";Sl+56")" 

520 PR I NT "DISABLE WITH SVSC ";31+2"> " 

530 PRINT"CHPNGE SPEED WITH P0KE";S!+12!-D".,H" 

600 END 
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The CHEM-PUTER Laboratory 



by Curtis T. Sears, Jr. 
Department of Chemistry, Georgia State University 




Commodore PETs help teach college chemistry— and may lower the failure rate for 
freshman chemistry courses. 



Georgia State University, located in downtown Atlanta, 
is an urban commuting school and the second largest 
institution of higher learning in the state. The average 
age of the 22,000 member student body is 28, somewhat 
above the national average for college students. Classes 
begin at 7 am and continue until 10 pm in order to accom- 
modate the needs of the students, most of whom hold full 
or part-time jobs. 

In conjunction with some committee duties in 1978, 
Fred Henneike, a fellow chemistry department faculty 
member, and I were discussing a problem common to col- 
lege and university chemistry departments throughout the 
country — the very high failure rate in the first term fresh- 
man chemistry course. Numerous nationwide studies had 
documented that approximately 35 percent of the students 
enrolling in the first term of general chemistry do not 
achieve a C grade or better on the first attempt. This is 
about twice the average rate for all freshman college 
courses. Our department's rate was hovering at 45 percent, 
fully 10 percent above the national average. Our discussion 
centered on possible reasons for the difficulty experienced 
by our students and ways we might improve our students' 
chances of success while maintaining the course standards. 

It appeared to us that a combination of factors was con- 
tributing to the problem. The most important were: <1) in- 
creased class size; (2) little out-of-class contact between 
students and faculty; (3) lack of an adequate mathematics 
and science background. 

Over the decade from the late 1960 's to the late 1970s, 
class sizes nearly tripled from an average of approximately 
30 to about 80 students. The increased class size was ac- 
companied by a change in emphasis from classroom dis- 
cussion to highly structured lectures and the cessation of 
mandatory homework assignments. 

In 1970, over 80 percent of the students enrolling 
in general chemistry had taken a high school chemistry 
course. But because of the liberalization of high school 
graduation requirements, by 1978 under 40 percent of 
our students had had any previous exposure to chemistry. 
The adequacy of their preparation for college chemistry 
was weakened further by an eight-year average time lag 
between high school graduation and enrollment in the 
course. Further aggravating the situation, opportunity for 



Chemistry students at Georgia State University 
use Commodore PETs as tutors. 

out-of-class aid from the faculty is generally more limited 
at commuter schools than at residential ones and is fur- 
ther restricted at GSU by work and family demands on our 
older student population. 

Once we identified these impediments to student prog- 
ress, we decided that any solution must economically pro- 
vide: an approximation of the individual attention students 
previously received in smaller classes; a suitable replace- 
ment for the immediate feedback given in the past by the 
return of graded homework; material designed to help the 
poorly prepared overcome their deficiencies; and availabil- 
ity at times convenient for the student. We thought a properly 
designed and implemented computer-assisted instructional 
program should be able to meet these objectives. 

Both of us had made several previous excursions into 
computer-assisted instruction (CAI) on mainframe com- 
puters. We had consistently been forced to retreat in the 
face of an insufficient number of terminals to handle 800- 
1000 students per week, the lack of lower case letters or sub 
or superscripts, and the computer's inability to reject unac- 
ceptable student input. The combination of these things 
had served to frustrate rather than educate our students. 

By 1978, however, we felt the newly available microcom- 
puters could truly make CAI feasible. Accordingly, we pre- 
pared and submitted a proposal to the National Science 
Foundation for support of microcomputer-aided chemistry 
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instruction. Revision of our initial proposal eventually led 
in June 1981 to a grant from the Comprehensive Aid to 
Undergraduate Science Education program of NSF in par- 
tial support of a S315,000 project in chemical CAI to be 
developed over a 42-month period. 

The first task confronting us after we were notified of 
the award was the selection of the microcomputer to be 
used. After two months of talking with people throughout 
the country and testing a large number of machines, we 
selected the Commodore PET model 4032. We chose the 
PET because it has a one-piece unit that makes transport 
and security easier, a built-in upper/lower case capability 
and character graphics, the ability to easily display sub and 
superscripts through the imbedding of cursor movements 
in data statements, a separate numeric keypad, and is gen- 
erally sturdy. Additional enticements were the 3-for-2 offer 
then in effect from Commodore and the availability of a 
hardware-controlled network to allow the PETs to share 
disk drives and printers. 

During the fall of 1981 the university renovated a little 
used faculty and staff lounge in a major classroom building 
to create a pleasing environment specifically designed for 
our CHEM-PUTER laboratory. In 1982 the worst winter 
storm to hit Atlanta in over 30 years arrived on the same 
January day as our thirty PETs, ten 8050 dual disk drives, 
five printers, seemingly unending coils of cables, stacks of 
manuals, boxes of assorted bits and pieces, and an engineer 
from NEECO whose assigned task was to create a function- 
ing microcomputer installation and within 24 hours make 
us experts in its operation. 

With the outside temperature in the low teens we 
quickly discovered why the lounge had been little used. 
The room, located on the north side of the building with 
floor-to-ceiling plate glass windows, had no heat. Dressed 
in heavy winter jackets and lined gloves, the three of us 
unpacked and set up equipment. Miraculously, by late after- 
noon we had a tested and properly functioning microcom- 
puter laboratory. Throughout the day as Fred and I muttered 
about the cold, our man from NEECO good-naturedly 
chided us about being transplanted northerners softened 
by a decade in Atlanta. His patience, cheerfulness and help- 
fulness we have since recognized is typical of all the person- 
nel at NEECO. They have unfailingly answered all our 
many questions, made helpful suggestions and serviced 
our equipment promptly and courteously. I have dealt with 
many vendors of many products and these folks are tops. 
I wish I could convince the service manager at my auto- 
mobile dealer to spend a week with Bob Crowell! 

Where are we now, a little over a year later and nearly 
halfway through the project? Our room now has heating 
and air-conditioning, and we are serving about 25% (200- 



250 individuals) of our beginning chemistry students. Our 
program library contains in excess of 300 programs includ- 
ing instructional programs, utilities, programmer's aids, 
record-keeping and games. In addition to our own programs, 
we have acquired programs from other institutions, com- 
mercial sources and user groups. 

As a result of our experience I urge anyone using micro- 
computers in education to join user groups. Two from which 
we have benefited greatly are the Central Illinois PET 
Users Group and the Toronto PET Users Group. Both of 
these publish newsletters and maintain extensive libraries 
of public domain programs that can be obtained very inex- 
pensively. They also publish no-nonsense reviews of hard- 
ware and software. These reviews alone can easily save 
you several times the membership cost. 

Currently student use of the programs is, with one ex- 
ception, voluntary. We simply inform the students of the 
existence of the facility and give them a brief description of 
the programs available. The reasons for this are the limited 
number of programs available and, until this month, a lack 
of record-keeping abilities. Very few of the programs ob- 
tained from outside sources meet our criteria for complete- 
ness of topic coverage, ease of use and educational value. 
Consequently, we decided not to force their use on our 
students. Because our students' average age is higher 
than most, with an accompanying anxiety toward com- 
puter use and increased scheduling difficulties, we believe 
no experience is better than a poor first experience. 

However, we are designing many programs ourselves. 
There are nine lecture and three laboratory courses served 
by the microcomputers. We have authored fifteen programs 
for use in three courses. The faculty regards this as an insuf- 
ficient number to incorporate into the courses as routine 
required assignments at this time. But, since our rate of 
program production has now reached one completed pro- 
gram every three weeks, by the start of the new academic 
year in September we will satisfy faculty requirements for 
the number of programs available and they will become 
required assignments at that time. 

The other factor delaying mandatory program use 
has been record- keeping. Without a means of quickly and 
easily identifying the student, the program used and the 
progress made, it is impossible to keep track of required 
assignments. We have just installed a record-keeping pro- 
gram and will be testing it throughout the spring and sum- 
mer terms. When class registration is completed, we access 
the enrollment information maintained on the mainframe 
computer, and create a file for each student. The informa- 
tion contained in each file consists of student name, student 
social security number, the course number, the instructor's 
name and 40 fields that will eventually be filled with infor- 
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mation on student program use. 

A student wishing to use a program will be prompted 
to enter the course number, professor's name and his/her 
social security number. In progression we locate the disk 
files for the course, select those for the professor named 
and finally search this group for the particular student. If 
a match is found, the student's name is displayed on the 
screen and the student is queried if it is correct. The prior 
breakdown by course and professor minimizes the search 
time. If the student name is incorrect or no match is found, 
the student is instructed to see the room attendant who 
will either add the student to the files or determine the 
entry error. When a match is attained, a menu of available 
programs relevant to the particular course is displayed. 
After the program choice is made via a single keystroke, 
it is automatically loaded and run. When the program is 
exited, a disk record is made of the program used, time 
spent, the number of problems attempted and the number 
correct. An alphabetical listing can be prepared weekly for 
the professor detailing the record of each student in the class. 

In addition to the two of us we have four part-time 
programmers. They are junior and senior information 
science students, none of whom has any chemistry back- 
ground. Working twenty hours per week, each completes a 
debugged and tested program every eight to ten weeks. The 
coding for a typical program occupies 25-28K of memory 
and requires 2-5K of variable space to run. It has been 
necessary to compact several programs and reset BASIC 
pointers to effectively eliminate DATA statements after ar- 
rays have been filled in order to provide sufficient memory 
for the program to run. 

Each program covers a single chemical concept in 
depth. Because of the existence of dual- and triple-track 
courses, a particular concept is often a part of two or three 
courses. Programs on such concepts are written to contain 
levels of concept development appropriate for each of the 
courses. A program menu displays the levels available, and 
the student chooses the level appropriate to the course in 
which he/she is enrolled. Most programs have three parts: 
(1) concept review and examples of its application; (2) a 
tutorial section in which the student is guided through a 
problem to its solution; (3) drill and practice. A student 
may move to any of the parts at any time. If a student's 
performance falls below a certain percentage of correct 
responses, the student is forced into the tutorial section. 
A biaser in the random problem selector presents increas- 
ingly more difficult problems when the student's performance 
exceeds a specified percentage of correct responses. 

Intelligent input routines monitor the attempted stu- 
dent input and reject inappropriate input such as no input, 
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letters or characters for numbers and vice-versa, thereby 
preventing most program crashes. The advantage a com- 
puter offers over a problem book with answer keys is the 
ability to analyze an incorrect response. All student re- 
sponses are checked for the most common types of error. 
For example, two numbers may have been multiplied 
when one should have been divided by the other. When 
such an error is detected, an error message is given with 
a brief explanation of why the response is incorrect. 

Program development begins with a faculty committee. 
This committee selects the topics, writes a summary of 
what each program is to do and assigns a priority to each. 
I take over the program at this point, totally designing its 
functions and presentation. This includes the data base, 
the concept review, examples, tutorials, drill problems, 
and response to various student inputs. We have printed 
grid sheets representing the screen, and the location of 
every' character to be displayed is specified. Thus, before 
any coding is done, we know exactly what the presentation 
will look like to the user. 

Average program specifications are 50-60 screen display 
sheets, plus another 20-30 pages of instructions and data. 
I have a fair knowledge of the capabilities of the computer 
and its operation, but scant knowledge of programming 
details. This turns out to be a great advantage because it 
frees me to focus exclusively on the educational value, ap- 
pearance, and ease of use. I remain almost totally free of 
concern about programming ease or expediency. When 
a programmer comes to me with the comment, "if you 
would change such-and-such feature of the program, it 
would make the programming faster. . . easier. . . or. 
my normal response is "what you mean is that you're feel- 
ing lazy today" or "you're simply not being clever enough 
to accomplish the task." Needless to say, the programmers 
seldom bring such things to my attention any longer. 

When my work is done, Fred takes over. He goes 
through the design, constructs program flow diagrams, 
makes suggestions for programming approaches to par- 
ticularly knotty problems and decides if certain routines 
need to be accomplished via machine language. He sched- 
ules an appointment with the programmer to go over the 
program. Any machine language portions, he retains and 
programs himself. The programmer is later given a copy 
of the routine and instructions for its incorporation into 
the program. 

The finished product is distributed to the faculty com- 
mittee for their review and suggestions. Suggested revi- 
sions are discussed and any necessary modifications made. 
The program is then made available for student use. Each 
student using the program completes an evaluation ques- 
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tionnaire and selected students are interviewed by a sepa- 
rate evaluation committee. I am delighted to report that 
the students generally evaluate our programs very highly 
and feel they have made a substantial contribution to their 
learning. The main complaint we receive is, "why isn't 
there a program for yet?" 

It has been an exciting nineteen months for us, and we 
anticipate the remaining time on this project will be both 
rewarding and challenging. Persons interested in visiting 
our CHEM-PUTER laboratory or obtaining further informa- 
tion may write the author at the Department of Chemistry, 
Georgia State University, Atlanta, Georgia 30303. 

This material is based upon work supported by the 
National Science Foundation under Grant No. SER-8103942. 
Any opinions, findings and conclusions or recommenda- 
tions expressed in the publication are those of the author 
and do not necessarily reflect the views of the National 
Science Foundation. C 
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Six Months with a 64 



by Doris Dickenson 



In early 1982, fourth grade 
teacher Doris Dickenson wrote 
an essay titled "Why I Want to 
Go Back to School with a Mic- 
rocomputer" for a contest run 
by Instructor Magazine — and 
won herself a Commodore 64 
computer. So in the fall, she 
actually did go back to school 
with that micro — the only 
computer in her California 
school district. 

With no experience and little 
access to other computer users, 
Doris did what pioneers have 
always done; she quickly de- 
vised her own methods, using 
whatever she had on hand. One 
of the products of her resource- 
fulness was a children 's user 
guide for the 64, You and Your 
Computer. (See page 71 for 
Part 5 of this guide.) 

In this article Doris offers 
advice to teachers who may 
want to teach computing, but 
are inhibited by tack of experi- 



ence and 7 or a limited budget. 
We alt hear about the school 
boards that allot big budgets 
for advanced computer curric- 
ula, but the fact is that many 
school districts are not yet able 
to go that route. If your district, 
tike Doris', is one of those that 
hasn 't had the money to devote 
to extensive computer courses, 
you don 't have to be left out of 
the computer revolution. Doris 
can vouch for that. 

There is so much going on when 
you have a computer in the classroom 
I find it hard to believe it has only 
been six months since I "went back to 
school with a microcomputer", thanks 
to an essay contest run by Instructor 
Magazine. Having only a little personal 
experience with computers, and with 
no other computers in the district, I 
had very few preconceived ideas about 
what to do with my own Commodore 
64 once I won it. 

Common sense told me not to just 
hand the computer over to my fourth 
grade students without some prelim- 
inary explanation and standards. I 
wanted it to survive their first burst 
of enthusiasm. I guess I imparted my 
concerns to them because they have 
always been very responsible in its use. 
The one episode that disturbed me 
frayed my nerves more than it dam- 
aged the computer. 

Not having any separate memory 
device at first, we could not save any 
programs or games, so my first step 
was to help the students become 
familiar with the computer itself. 
Using some recommended computer 
literacy materials, I did a few lessons 



|L 



with the entire class on computer 
hardware and vocabulary as an intro- 
duction. Then, using the manual that 
accompanied my 64, but which was 
too difficult to present to 9 and 10 year 
olds, I wrote several booklets, each 
dealing with one aspect of the com- 
puter itself, giving careful explanations 
and extending activities with further 
practice and open-ended student ac- 
tivities. My objective was to give them 
the chance to work independently in 
our Computer Corner. 

One reason for this approach was 
that, realistically, you can't give 28 
students enough individual teacher- 
time to get them "off the ground" 
with the computer — without sacrific- 
ing the rest of the curriculum and the 
other students. These circumstances 
strengthened my philosophy of class- 
room computer education — learning 
to use the computer as a tool for your 
own tasks, rather than as a "drill-and- 
practice" machine. A fellow teacher 
calls me a "purist". 

Actually, this approach is one of 
the sources of disappointment for me. 
I have been both surprised and dis- 
appointed in student interest in the 
computer. I have found that my stu- 
dents commonly regard a computer 
as a game machine and prefer to inter- 
act with it, rather than to learn to have 
it work for them through their own 
input (programming). There seems to 
be a wide range of feeling about com- 
puters. Some students are merely cur- 
ious, some remain timid, even after 
much practice, and some want more 
than their share of turns with it. I am 
not always fair about sharing turns. I 
tend to permit those who want to do 
their own programming to use it as 
much as possible. 

The addition of a datassette, and 
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later a disk drive, made some prepared 
programs available to us. For speed 
and ease of access, I would not want to 
be without my disk drive, but for peace 
of mind, with 9 and 10 year olds using 
the equipment by themselves, I find a 
datassette invaluable. I can select the 
programs I want from disks, modify 
them if I choose, and then make them 
available for students at the Computer 
Corner. By posting simple, step-by- 
step directions, students can use the 
datassette on their own. A word of 
warning! Be sure to number each tape 
and number a list of programs so you 
don't LOSE programs. Cassettes can 
really get confused. 

Now that software is becoming 
available for the 64, 1 still put low pri- 
ority on drill-and-practice programs. 
However, I have found several public 
domain programs that enable me to 
plug in specific skills for my own cur- 
riculum, and I prefer these to a com- 
pletely prepackaged program. I have 
also found that students can work 
with programs at levels higher than 
they would normally work, with the 
aid of "prompts", such as maps, lists, 
or information cards that can be used 
with some of the programs. It helps 
them score high, or beat the computer, 
which they love to do, as well as learn 
new concepts. 

After using my Commodore 64 for 
the past six months, I have found some 
methods that have been helpful to me 
and might be helpful to others. I think 
that those of us who are starting to ex- 
plore the use of classroom computers 
need all the help we can give each 
other. We are finding that out in our 
own school, where four more teachers 
have just added computers to their 
classrooms. 

1. For a teacher to get acquainted 
with a computer and really learn to 
enjoy it, requires lots of "at home" 
time. Most teachers will find that they 
want to use computers during evenings 
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or weekends. If they don't have one of 
their own, they will probably consider 
using the one from their classroom. 
My computer commutes with me 
almost daily. I saved the styrofoam 
packing case that it came in and find 
that it makes an excellent, dustfree 
carrying case. I cut two thin strips 
of truck inner tube and use them like 
rubber bands around the case. 

2. If you have a disk drive, it comes 
in the same kind of styrofoam case and 
can also be carried around safely with the 
same kind of inner tube bands as above. 

3. If you move your computer be- 
tween different T.V.'s, used as monitors, 
a small sewing machine screwdriver is 
easy to carry around for attaching the 
TV. switch box to the different sets. 

4. Make a real Computer Center out 
of your computer. Put it near a bulle- 
tin board that will not only identify the 
area, but will give you an opportunity 
to mount a variety of computer- 
related displays. 

5. To avoid the numerous cords and 
extensions that often are needed as you 
add peripherals to your classroom in- 
stallation, a four-outlet power strip is a 
practical and inexpensive item. Some 
even have fuses in them. 

6. How about keeping a small box 
at your computer center to hold a col- 
lection of computer related reading 
or browsing books for students to use 
while they are waiting for their turn on 
the computer. Inexpensive computer 
dictionaries or storybooks can be pur- 
chased, but you and your students can 
make your own booklets of computer 
pictures, computer stories and draw- 
ings, or examples of computer uses. 

7. You will frequently be hearing the 
question, "Shall I turn the computer 
off?" and sooner or later someone will 
do just that, losing a program you had 
hoped to save. I solved the problem 

by folding a piece of heavy tagboard, 
about 8"x24", into a permanent sign 



that I leave standing at the Computer 
Corner, Make a crease across the tag- 
board at 4", 12", and 20". Overlap the 
two 4" ends and staple closed. This 
makes a wedge-shaped sign. On one 
side, in LARGE letters, print "Do NOT 
turn the computer OFF". On the re- 
verse side, print "Do not turn the com- 
puter on". I have found that there are 
times when this is the appropriate 
message for my students, also. 

8. If your students are working at 
the computer independently, you will 
find yourself wondering how they are 
doing, while you attend to other tasks 
in the classroom. It is a simple matter 
to attach a red HELP flag to a new pen- 
cil and make a small hole in the wedge- 
shaped sign. Then, if they need to have 
some help and want your attention 
without interrupting you, they put 
the sign on top of the monitor. You 
can be aware of a problem and go to 
them as soon as you are able. 

9. When you hand-copy programs 
for your students to type into the com- 
puter, as you will do when you find 
them in books or magazines, or when 
you exchange programs with other 
teachers, use graph paper, 1/4" grid. 
This really simplifies the correct 
placement of spaces, which often 

can be critical. 

More and more, as this school year 
progresses, I find that I am reviewing 
and reorganizing my computer 
education activities of the past six 
months. So many of them have been 
trial and error. I am looking forward to 
putting this year's experiences into 
practice next year, and to all the new 
things that are in the future for my 
64 — especially increased availability of 
software, and the introduction of 
LOGO. With computers, it seems 
as if you never stop learning, and 
things never stop happening. C 
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Multi-purpose CBMs Keep 
Student Interest High 



by Jean Spahr 
Librarian, Red Bud High School 



Students don 't want to leave their computer 
classes at this Illinois high school, where CBMs 
are used for everything from teaching office 
skills to running agricultural programs. 

Red Bud High School is located in Red Bud, Illinois, 
a town of about 2,900 people approximately forty miles 
southeast of St. Louis, Missouri. The high school has an 
enrollment of about 500 students, RBHS is well-known lo- 
cally for its excellent vocational and academic programs. 
The school has placed first in the nation for the past two 
years in the Test of Engineering Aptitude, Math and Sci- 
ence (T.E.A.M.S.) sponsored by the Junior Engineering 
Technological Society (J.E.T.S.). 

In the spring of 1982, the Board of Education needed 
to replace manual typewriters with electrics in one of the 
business classrooms as well as to purchase microcomput- 
ers for a new programming course. Teachers in the busi- 
ness and agriculture classes had also expressed interest 
in using computers for instruction in their classes. Since 
the computer keyboard is remarkably like the keyboard 
of a typewriter, the Board felt it worthwhile to explore the 
possibility of using computers to teach advanced type- 
writing. The same equipment could then also be used for 
programming and agriculture classes as well as data pro- 
cessing and accounting classes. If this were possible, the 
purchase would be very cost-effective because one room 
of equipment could serve many purposes. 

After months of phone calls to educators, consultants, 
and computer dealers, the district decided that what it had 
in mind could be done. In the summer of 1982, a computer 
laboratory was installed. The Commodore 8032 was the 
model chosen because it has an eighty character line and 
upper and lower case capabilities, which were needed for 
the typewriting class. To avoid purchasing disk drives for 
each machine, two MUPET II systems were used. Each 
MUPET links ten computers to a dual disk drive and a 
printer. The Word Pro 4+ word processing program is 
used with the system in the typing class. 

The equipment is now fully operational. Reports from 
teachers who are using the lab are very favorable. Student 
interest is high. In one of the classes the teacher reports 
that students do not want to leave when the class period 
is over. Students feel that using the computers has given 
them a realistic picture of the modern office. Although 
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there have been some minor problems with the MUPET 
system, there have not been any repairs on any of the 
Commodore equipment. 

The transition into the computer age has been rel- 
atively smooth. The success of the program at Red Bud 
High School can be directly attributed to a progressive and 
supportive board of education, an enthusiastic administra- 
tion, and consultants and dealers who are willing to share 
their information. Most of all, the success can be attrib- 
uted to interested and cooperative teachers who want to 
prepare their students for the age in which they will live 
and work — the age of computers. c 
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You and Your Computer 

Part 5 — Color Me Purple 

by Doris Dickenson 



,4s it turns out our inimitable fourth-grade teacher in Sebastopol, California, has more chapters to 
her children s user guide for the Commodore 64 (last issue we mistakenly announced the conclusion 
of the series). Here in Part 5 young students learn to use both the color control keys and the POKE 
command to program in color. 



Your Commodore 64 can make lots of color without 
much effort. Here are some simple programs to give you 
ideas to start with. 

A. Writing With Color 

Do you remember how you used the CTRL and "Commo- 
dore" keys with the number/color keys in "You and Your 
Computer," Part 1? You can use these same keys inside a 
PRINT statement to write words in color. The color chart 
is on page 57 in the Commodore 64 User's Guide. 
NOTE: Don't worry if your typing looks funny on the 

screen. Some unusual symbols will be printed for 

the colors, but your program will automatically 

change the colors. 
1 . Type this program using your own name and other 

information in the blanks. 



/ 



Use the CTRL and Q keys 



NEW 

10 PRINT "CTRL 5 MY NAME IS - 

20 PRINT " C K 6 MY SCHOOL IS. 



30 PRINT "CTRL 8 1 AM YEARS OLD.' 

40 PRINT "OH LOVE TO EAT 



50 PRINT "CTRL 3 THIS LOOKS LIKE 
A RAINBOW." 

60 END 
RUN 
2. Questions: 

a. You will see that some colors are easier to 
read than others. What do you think will 
happen if you change one of the colors to 
CTRL 7? Try this to find out. 

b. Press RUN/STOP and RESTORE together. 
Type LIST and make this change. 



/ 



Use key 



Type: 30 PRINT "CTRL 7 1 AM 

YEARS OLD." 
RUN 
What happened? Why did it happen? 
Hint: What color does CTRL 7 print? 

B. Color Bars 

You can also type a program that will draw color bars that 
look like the ones in Part 1 by using a special computer 
code, CHR$, followed by a number in parentheses (). 
These are the special CHRS (character string) numbers 
for the colors you can use: 

(5) white (28) red (30) green 

(31) blue (144) black (156) purple 

(158) yellow (159) cyan (blue) 

1. Type this program to print the color bars auto- 
matically: 

NEW I REM means REMARK. This 

'reminds you what the pro- 
Igrarn is and will not print. 

10 REM: AUTOMATIC COLOR BARS 



This is another way of writing 
CLR HOME into your program. 



20 PRINT CHR$(147) 

30 PRINT CHR$(18)""; " H T h's will print bars. 

40 PRINT CHRS(5r ^ "; 



The space between the 
quotation marks sets the 

length of each bar. Try 

anywhere from 1 space to 

40 spaces. 
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50 PRINT CHRS(28)" 
60 PRINT CHRS{30)" 
70 PRINT CHRS(144)" 
80 PRINT CHRSOD" 
90 PRINT CHR$(156)" 
100 PRINT CHRSU58)" 
110 PRINT CHR$(159)"' 
120 END 
RUN 



2. Wasn't that easy? But why not fill the whole screen 
with color!! You can make the program repeat over 
and over again by adding a LOOP. This means that 
it goes in an endless circle from one line to another 
line that you send it to. 

Type this line and RUN the program again. 
115 GOTO 40 
RUN 
NOTE: Remember RUN/STOP. Press RUN/STOP 
and RESTORE when you want to end the 
program run. 

3. Practice: 

a. Change the number of spaces between the 
" " in each line. See how different your 
patterns will be. Do it this way: 

Type LIST. 

Move the cursor up to each line and make 
the changes on the screen. Remember to 
press RETURN after you make the change 
on each line. 

b. Add these lines: 

35CL=INT(8*RND(1)) + 1 
38 ON CL GOTO 

40,50,60,70,80,90,100,119 

Change this line: 

115 GOTO 35 
Now RUN the program again. You are 
giving the computer the chance to pick 
any of the eight colors at random (RND) 
by using the formula in line 35. See what 
patterns the computer makes by itself. 



C. Backgrounds and Borders 

Maybe you are tired of looking at a blue screen all the time. 
This program will show you what other possible color 
combinations look like. You will be using another com- 
puter code called POKE and PEEK. In this code, all six- 
teen colors are available in any combination. These are 
the numbers for the POKE color code: 

II 



black 


6 blue 


11 gray 1 


1 white 


7 yellow 


12 gray 2 


2 red 


8 orange 


13 light green 


3 cyan 


9 brown 


14 light blue 


4 purple 


10 light red 


15 gray 3 



1. Tvpethis program: 

NEW 

10FORBA=0TO15 

20FORBO=0TO15 

30 POKE 53280, BA 

40 POKE 53281, BO 

50FORX=lTO500:NEXTX 

60 NEXT BO: NEXT BA 

70 END 

RUN 
NOTE: We have let BA be the name for back- 
ground and BO the name for border. to 
15 are the different numbers for colors. 
POKE 53280 is the location of a certain 
memory space for backgrounds. POKE 
53281 is the location of a certain mem- 
ory space for borders. Line 50 is a timing 
loop (remember how to slow down screen 
changes?). 

2. Practice: 

a. Type LIST and add these lines to your 
program: 



This is the code to clear 
the screen. 



25 PRINT CHR$iU7)^^ 

26 PRINT "BORDER = "; 

PEEK (53280) AND 15, "BACK- 
GROUND^'; PEEK (53281) AND 15 
RUN 
b. Use the color chart to change the color 
numbers in lines 10 and 20 

3. Questions: 

a. Why did the printing disappear every so 
often? Hint: What color was the screen 
when it went blank? 

b. Which colors were easiest to read? You can 
press RUN/STOP and make a note of the 
ones you might like to use for your own 
programs. Type CONT to continue viewing. 
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COMPUTER LICENSE TEST 
PartS 



Color Me Purple 



1. Write a program that will print your name all over 
the screen in a color other than blue. Run it for 
your teacher. 

2. Write a program that will print your name or your 
school's name in columns down the screen, using a 
background and border of the same color, other than 
blue. Run it for your teacher. 

3. Enter and run the program for random automatic 
color bars in which each different color bar is the exact 
width of the screen. 



Student name. 
Test date. 



Date passed (100%). 
Approved by_ 



tired of software that doesn't work? 

reach up 
& turn over 
to... 



All New Leaf Inc. products ore 
created with our special 
committment to quality 
because we really core Unlike 
most software even novice 
computer users will be oble to 
enjoy ail of the benefits, without 
ony of the hassles' 

DIORHYTHM+ 

OauiC QiorTiytnm with audio leedbach b 
comipatQW.cvcampartK>m Plus ows 
w^i grve you xf*e option of o punted 
ehoi-i. * 
Cosseue only t4.50 
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(C<* Anotfui Re-pQtir>g Syiipm! Graph & 
mofntof operow<| efficiency & cast of 
own*fih.p ircluc&ng cat miufones 
payments, taxes & kense feci as well 
as repairs. It distinguishes between 
operating ownership costs. Agom ours 
will give vou the opoon ot pnnted reports. ' 

Cowetie version 24. 5D 

Dish version 27.50 




€SP>Calc 



^Electronic Spreadsheet PtoAninq 

Now vov con corcutote any spreadsheet 
eosrer 1 Rows crnd columns ore limited only by 
vour machine s memory An excellent 
tool tor panning and repentrve 
coiculotions You con even make 

-pies or your soieadsheets • 

Cosseito verson 43. SO 

D»sJ« vernon 47.50 
"On onv Commodore* compaMsl* printer 

Each of our programs has 
been tested and re- tested 
over and over again. Our 
national testing network 
eliminates any problems 
BEFORE they reach you. 
Simply type Load & New 
Leaf's" unique Self-storting 
format will do the rest. 

Masiercoicjond 

VISA customers 
please add 3% 




'^wf^ ■ 



Q5 






\mm 




Product ordered 

D VIC-20* D Commodore 64? 
D Disk n Cossette 

Amount enclosed 

Name 

Address 

Oty Stote_ 

Phone Number < ) . 
MC or VISA # 



Zip_ 



Expiration dote 

Interbank * CMC) . 



Missouri residents odd sales tox 
120Lynnhaven • Belleville, IL62223 
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Parent Computer Power 



by Walter Herrala, Ph.D. 

Principal, South Lyon, Michigan, Elementary' School 



How an elementary school on 
a limited budget uses "parent 
power" to enrich students' 
computing experience. 

The kind of computer assisted 
instruction (CAI) children benefit 
from most, in our estimation, requires 
adult supervision. But when we started 
our computer project at the South 
Lyon elementary school we lacked the 
financial resources to pay for that su- 
pervision. As a result we were forced 
to turn to volunteer help — mainly 
parents — whom I trained to heip the 
children get the most out of our PET 
computers. As it turned out, parent 
involvement works so well it has 
changed what started out as a 
handicap into a real advantage. 

We all know principals are forever 
descrying the lack of parental involve- 
ment in school activities. The com- 
puter project is a perfect parent 
involvement project in our school 
for several reasons: 

1. Parents are in a special area so 
teachers don't feel "invaded". 

2. A volunteer parent is as likely 
to have the necessary skills as a 
teacher. 

3. Involvement is during the day, so 
it doesn't conflict with parenting 
chores. 

4. Parents perceive their involvement 
as very meaningful. They make an 
impact on the kinds of learning 
they like to see go on in schools, 
and they see the results every time 
they come in. 

5. Their volunteer work does not 
threaten to expand beyond their 
wishes like some kinds of com- 
mittee volunteerism. 



The parents themselves also benefit 
in some ways from their work in our 
school. Computers have received such 
a build-up in the media that many peo- 
ple want to be involved, even though 
they may not be able to afford a com- 
puter. Parents in that position, who 
want to be up-to-date on what is hap- 
pening in education, get a chance to 
find out what their children are learn- 
ing and what they are going to be 
faced with for the rest of their lives. 
The user-friendly qualities of the PET 
make it possible for these untrained 
people to learn "on the job". There can 
also be spin-offs from computer proj- 
ects, such as teacher computer classes, 
computer clubs, adult education 
classes and after-school classes, that 
provide further benefits to students, 
teachers, volunteers and the com- 
munity at large. 

A question that inevitably arises 
is whether we would prefer a trained 
professional if we could afford one. My 
answer is no. At this point such a per- 
son would be better used as a consul- 
tant to the staff and for teaching the 
children programming. 

I should also mention, before I go 
into the details of how we set up our 
project, that I think it should be the 
responsibility of the school principal 
to oversee the setting up of a school 
computer project. Principals are the 
educational leaders, and should there- 
fore provide educational leadership, 
rather than delegating that respon- 
sibility to staff members or outside 
specialists. It is also the easiest way 
to avoid the fragmentation of opinion 
that can occur when you must choose 
among many different brands of com- 
puters and a multiplicity of software. 

However, in administering this proj- 
ect, I assume the software selected by 



li 



the teacher is the best that could have 
been selected. The judgement on con- 
tent is a professional one. I also assume 
that micros are efficient interactive 
devices if used with common sense 
judgement about student motivation 
and receptivity. Therefore, my job as 
the administrator is to maximize the 
amount of quality time the students 
spend interacting with the computers. 

Hardware 

The computer center uses an empty 

classroom adjacent to the office, li- 
brary, teachers' lounge and front door. 
Carrels were built on top of sturdy 
school tables at a compromise height 
for all grades. The work was done by 
our building engineer. Each carrel is 
wired with a convenient switch so a 
single parent aide can switch eleven 
micros on in one turn. 

Ten 4032 "fat forties" are networked 
to one 4040 dual disk drive and a printer. 
Since the parent aide alone is permit- 
ted access to the disk drive, or give 
permission to access it, the obvious 
problem of hanging up the network 
by attempting to access from two 
PETs at once is minimal. I should 
point out that the IEEE kind of net- 
work has a very low cost because the 
capacity is built right into the PET. 
Many administrators I know don't have 
the foggiest idea that this can be done 
for the price of a few inexpensive cables. 

What an administrator buys in a 
disk drive, among other things, is 
the ability to have one person easily 
control several stations. If a cassette 
drive is used to load ten computers 
it will take 10x3 minutes — the exact 
amount we allot for a session! Cassette 
drives worked just fine for us in this 
same parent project until we got our 
disk unit, but that was because we did 

II 
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not change the programs nearly as 
often and we had only four computers. 
Now we can use three or four different 
programs a session, depending on the 
ability of the aide. 

If the system gets hung-up we give 
ourselves one minute to solve the 
problem by working individual ma- 
chines. If we do not succeed, we don't 
theorize. Off go all ten; on again; load 
in the DOS support, and we're back 
in business again. 

Attracting Volunteers 

A letter was sent home with a 
date and time set for training par- 
ents who wanted to get involved with 
computers. The principal promised to 
teach them everything they needed to 
know about running our center. It was 
emphasized that they were needed and 
that they would be making a direct 
contribution to the learning process. 
We told them they would be asked to 
come for one half day per week and 
they would be working with a partner. 
Busy parents need to know that they 
can get in and out of the school on 
their terms. They definitely do not 
want to be in the center alone with 
ten children to check in and out. 

Training 

A single initial training session was 
conducted. In this session we used only 
terms that were necessary for them 
to know in order to function. They 
were to be the managers of the ma- 
chines, but more importantly they were 
to sign each child into the center on his/ 
her student user booklet. They were 
told that the teachers would be writing 
down each day's activities on the mas- 
ter planning schedule and that they 
need only follow it. We had each parent 
sit at the terminal and push all the keys 
to dispel any idea that they could hurt 
the machine. A very careful and repet- 
itive lesson on loading a program from 
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FOX§®IFTT 

Presents 

'JpryteQyter™ 

For the Commodore 64" 



The user atfeclianate sprite development 
program Menu-driven. Mono/Multicolor sprites, 
joystick/keyboard. Tape/Disk 20K w/FAST 
machine language routines. Over 60 conv 
mands: ROTATE (any angle 0-360). INVERT/ 
OBVERT. SHIFTS. SYMMETRY. AND/OR, 
REVERSE. REVIEW. MOVIE (animation). 
Create and Edit up lo 128 sprites per file. 
For programming efficiency and FUN 1 



PLUS 

The Came Maker 

Automatically prepares a base for game de- 
velopment- up to 32 sprites WITHOUT DATA 
STATEMENTS 1 Adds SPEED to your games. 
Saves memory loo. 



To order: Send check (U.S. Funds) S29.95 for 
Cassette, $34.95 lor Disk Dealer inquiries 
invited. 



FOX^CDIFIF'" 

P.O. Box 507 

Deer Park, Texas 77536 

(713)473-6723 

A Division ol Foxfire Systems inc 





FIVE POWERFUL SOFTWARE 
DEVELOPMENT TOOLS 

Plus Zhe Exciting J^cw Book 
INSIDE THE VIC 



THE BOOK 

A comptete clear explanation ol machine 
language, Assembly language, VIC 20 archi- 
lecture, graphics, joystick and sound effect 
programming. Detailed step-by-step guide to the 
use ol the development tools. How to combine 
BASIC and machine language, make auto-start 
cartridges, Interface with the internal ROM- 
based programs of BASIC and the Kama I. 
Sample programs fully explained. 



THE TOOLS 



Assembler/Edttor/Loader/Decodery Monitor 
Full-featured Assembler allows use of labels, 
comments and arithmetic expressions to create 
machine language programs. Create, save, 
modify Assembly language programs with the 
Editor Load and link machine language modules 
with the Loader. Decode machine language back 
into assembly language for study or Input to the 
Editor. Single-step program execution with the 
Monitor. Extended features combines Assembler/ 
Editor for maximum ease of use. 



ALL FOR $49.95 PLUS S2.00 POSTAGE AND HANDLING Standard version runs on 
any system with Datasette (5K and up) Add S5.00 for disk version, $5.00 for extended features 
(minimum 8K) Send check, H.O., VISA/MC ($2.00 S.C.) or specify C.O.D. (add S3, 00} to: 



C> 






P.O. Box 207, Cannon Falls, MN 55009 
507-263-4821 

VIC 20 ii I rcgiilcred TM or 
Commodore BLfilncis Machines inc. 
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the disk drive was given. There were 
many questions and there still are. 

Jump In and Swim 

At what point are the aides properly 
trained? The answer is that learning 
about computers is like learning to 
debug a program. You know the thing 
should run but it doesn't. Attitude is 
important and parent aides will have a 
problem-solving attitude if you convey 
that attitude as the director. Convey 
the idea that everyone has problems. 
There is a period of confusion but it is 
followed by a gradual decline in the 
need for administrative attention. 
Make it clear that you want them to 
learn how to do it and they (almost 
always) will achieve independence. 

Documentation 

Administrators may be interested 
in documenting the exact accomplish- 
ments of their computer center. A 
center affords accurate and detailed 
accountability that is rare in the school 
setting. To aid in documentation, we 
created student user booklets using 
colored folder stock. The covers are 
festooned with attractive computer 
cartoons and terms and there is a 
place for a student name. They were 
professionally printed because the PTA 
wanted to pay for them. (Before their 
offer we simply ran the art work on 
mimeo and pasted it on stock folders.) 
Inside these folders there is a format- 
ted place for entry of date, subject or 
program, number of problems worked, 
number correct and percent correct. 
At the end of the year these booklets 
are collected and a report is made on 
the total number of contacts as well as 
the number of problems done, etc. It 
can be made very clear that students are 
progressing if their levels are going up. 

Master Schedule 

Each computer station was given a 



number and a master planning sheet 
was created. Teachers signed their stu- 
dents up on the master sheet. Because 
this takes time on their part, it should 
be presented at a staff meeting. A good 
way to start if staff awareness is low is 
to buy a self-leveling program such as 
the Milliken math program, which 
automatically adjusts the level of 
difficulty upward. That way teachers 
can get a very quick idea of what they 
are signing up for without knowing a 
lot about programs available, Note that 
lack of teacher awareness of programs 
is not a roadblock in this plan. 

Helpful Hints 

1. Use duct tape to secure IEEE cables. 

2. If students are allowed to access 
the disk drive (dd), they must 
have some token. Our token is a 
plastic dog. After access, the dog 
sits on the dd. 

3. Write expectations for volunteers. 
Do this in detail. Volunteers want 
clear detailed directions. Include: 

Clean up procedures 
Power-up sequence 
Care of disks, cassettes 
Descriptions of loading 
Location of manuals 
Teacher expectations for 

selecting software 
Student behavior 

expectations 
Do nots = eating, smoking 

4. Create a substitute list. Aides are 
asked to call their own subs. 

5. Needless to say, back up every- 
thing. We keep cassette backups 
of our most widely used programs 
just in case our dd needs service. 

6. Ask one of the aides to clean all 
units each week. We bought a 
cleaning kit for the dd. 

7. Use the DOS command "Name" to 
load programs. We have the DOS 
program on a disk by itself. It is 



in an envelope stapled to the dd 
carrel. Before any loading is done, 
this program goes in each micro. 
The DOS will be operational until 
the computer is powered down. 

8. Most problems are due to bad con- 
nections. Look for IEEE connec- 
tions partially out or cockeyed. 
This problem is compounded if 
you try to use less IEEE cable 
than necessary. 

9. Loaning computers sounds great 
but with networking it is not de- 
sirable. Too much reconnecting. 

10. Make sure all computers in the 
network are on before attempting 
to LOAD. 

11. A good tray-type disk container is 
best for aides who must quickly 
find and change programs. The 
price for these containers is out- 
rageous. Make your own. Divide 
disks into content areas volun- 
teers understand. 

12. An updated list of programs is 
given to each teacher and aide. 
The aide must be able to quickly 
locate the disk. Use content areas. 

13. Encourage volunteers to remain 
near the students and be helpful. 

14. Volunteers need inservice and 
encouragement. Meet with them 
at least every six weeks. 

15. Always be on the lookout for new 
volunteers. c 
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Microcomputers : 
Truly ChOd's Play 



by Terry Anders 




A child from the Brooklyn Park 

Kinder-Care learning center 

working on the new talking 

PET Commodore computer. 

A three-year-old loading a program, patiently waiting 
and then interacting with the computer? A vision of the 
future, perhaps? No, it is reality at Kinder-Care Learning 
Centers in Minneapolis, Houston and in the Montgomery, 
Alabama, area. Children from ages three to twelve are using 
Commodore microcomputers on a regular basis. For them 
it is but another new life skill to learn and one which they 
practice with glee! 

Kinder-Care is the nation's largest proprietary child 
care provider, serving children from six weeks of age 

H 



Having loaded in the software, 
the child is waiting to 
proceed with the program. 
Look at that anticipation! 

through age twelve. In June, 1982, ten learning centers 
in the Minneapolis area began using the Commodore PET 
microcomputer with natural voice programs. This pilot pro- 
gram was implemented by Donna Goff, Zone Manager in 
the Minneapolis area, as an addition to the GOAL (Growth 
Opportunities for Achievement and Learning) program. 
This is a program based upon children's natural curiosity 
and Ms. Goff felt that microcomputers were a natural addi- 
tion to it. The computers make up yet another "discovery 
area" in the centers where children can explore the com- 

II 
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puter and use programs appropriate to their learning needs. 

Ms. Goff believes that "Kinder-Care has introduced 
the learning tool of tomorrow, a 'friendly' microcomputer 
that talks to children on their own level and provides an 
opportunity for the teacher to help the child learn in 
an individualized setting". 

Young children do not have to know how to read to use 
the computer successfully. In some situations they are able 
to interact with programs teaching concepts such as size, 
directionality, and quantity by using the natural voice and 
responding via a light pen (an electronic pen which, when 
pointed at the screen, can be "read" by the computer). As 
they develop symbol skills, they can begin to use the com- 
puter keyboard. What is important is that the children are 
interacting and getting immediate feedback on their work. 
The computer is infinitely patient and supportive of repeated 
attempts. The natural voice of the Kinder-Care-selected 
programs provide clear, understandable communication. 
It is a non-threatening, self-directed learning environment. 

Kinder-Care believes that the computer-based learning 
can be used to support concepts taught in the classroom 
as well as present new material. Kinder-Care has an estab- 
lished curriculum for its national centers. Sanny Sue 
Holland, Corporate Director of Curriculum, reports that 
her staff is developing activities to provide maximum 
integration of classroom and computer experiences. 

Children have responded with enthusiasm to the com- 
puters. At this stage in their lives they spend their days 
learning new skills and adapting to their environment. For 
them the computer is just another tool to master and set 
of skills to learn. They have no "computerphobia" — only 
openness to new situations. It is an ideal age for introduc- 
tion to the computer which will certainly be with them 
throughout their lives. 

In addition to the programs for the preschool and 
kindergarten children served by Kinder-Care, there is a 
Klubmates™ program for school-age children. These chil- 
dren also participate in the computer program and have 
the opportunity to earn a MicroKid™ badge indicating 
that they are "computer competent"! 

In August, 1982, another test site was established in the 
Houston area. Computers were installed in 35 Houston 
area centers. As in the Minneapolis project, center directors 
and staff were thoroughly trained by both the software and 
hardware suppliers. In late fall it was decided to install yet 
another pilot test site in the Montgomery, Alabama, area, 
which is the home of Kinder-Care's corporate headquar- 
ters. At these sites the Commodore 64 microcomputers 
were installed in eleven centers. The 64 was selected 
because of its music and sound capabilities. Goals of these 



test sites include hardware and software evaluation, deter- 
mination of the actual number of machines needed per 
center, the best configuration of these machines and obtain- 
ing yet another set of responses from children, parents 
and center staff. 

Responses to date from children have been enthusiastic, 
and parents are pleased that their children are involved in 
preparing for the future while still very young. Gene Mont- 
gomery, Vice President Operations for Kinder-Care Learning 
Centers, Inc. states that "In this era of increased technology 
we are proud to help our preschool children become com- 
puter literate. This new approach to learning makes it 
possible for the child to understand the technology of the 
future while learning in an exciting environment.". C 
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$1395 $999 $1355 



APPLE" lie 64K TRS-80MIM6K 



IBMPC64K 



That's a good question. 

The Commodore 64 gives you 64K of memory. As 
much, or more, than any of its competitors. 
But take a look at the difference in price. 
The list price of the Commodore 64 is hundreds 
less than that of its nearest competitor And almost a 
thousand less than its furthest one. 

Stop in and see all the things the Commodore 64 is 

capable of doing. 

You already know the one 
thing it won't do, which is cost 
you a lot of money. 

O. commodore 

v COMPUTER 

In more homes than any other home computer. 




■Manufacturers suggested list c f »ces 
as Of March 20. 1983 
Monitor included wan TRS-80 III only 
Apple is d registered trademark of Appl, 
Computer, tnc TRS-BOiS a registered 
trademark of Tandy Corp. IBM is a 
registered trademark of tnternaiional 
Business Machines Corp. 




THE COMMODORE 64 
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The Commodore 64 
Trip Planner 



by Charles Knight 



Because of their length (about 
nine feet of program listing), 
we aren 't able to print Chic's 
programs here. However, he 
says if you send him a blank 
disk, a self-addressed, stamped 
return mailer (sturdy) and 
$2. 00 handling, he '11 be glad to 
send you a copy. You can reach 
him at: 1732 County Road 995, 
Route 6, Ashland, OH 44805. 

It was one of those things that 
sneaks up on you from time to time. 
You're not aware that it's there, or at 
least what its potential is, until sud- 
denly it hits you like a downpour out of 
a clear sky when you are in the middle 
of the fifth fai rway. 

When the Commodore 64 was un- 
packed at our house in the fall of 1982 
its purchase had really been as a sort 
of necessity and not for the purposes 
of recreation or experimentation. My 
wife is a data accounting teacher at 
a local vocational high school and while 
there had been a couple of Brand X 
business-type computer systems in 
place for a while, there were not enough 
machines to make much instruction 
practical. When the announcement 
came that more computers would 
soon be on the way it became evident 
that if she was going to be in a posi- 
tion to know much about teaching 
computer skills there would have to 
be a micro in our home. We investi- 
gated most of them and decided that 
the 64 with a companion disk drive and 
the 1525 printer would serve her needs. 

The rains started falling on me when 
I realized that at 43 1 wasn't too old to 
make the machine function in a pro- 
ductive manner and even do what 1 
wanted it to do. Being a practical per- 

II 



son (so my wife claims) posed a prob- 
lem though because I didn't want to 
play games; I wanted the computer to 
do things for me that were practical — 
things that I could use later. 

We as a family are avid RV'ers, be- 
longing to a Columbus (Ohio) based 
chapter of the International Skamper 
Camping Club. When I say avid I mean 
that our latest travel trailer, purchased 
in the summer of 1980, has seen over 
7,000 miles so far. It seemed natural 
then to mix our RV'ing and computing 
together and have the computer handle 
a batch of chores that to this point had 
been mostly done on paper with a cal- 
culator or log books. 

Learning to program became the 
first chore, so with the help of the 
Commodore 64 User's Guide, the Com- 
modore 64 Programmer's Reference 
Manual, and a book I would recom- 
mend highly to anyone wanting to 
teach themselves programming I was 
on my way. The book incidently is a 
high school text book on program- 
ming entitled Structured BASIC from 
the Southwestern Publishing Company 
of Cincinnati. 

As confidence built I tried my first 
"practical" venture. We were planning 
a trip to Myrtle Beach, South Carolina, 
with the family and the camper this 
past spring. Anyone can read a map 
and total up the miles to see how far it 
is, but what I wanted to know was how 
long the drive would take. Simply tak- 
ing the miles travelled and estimating 
the average speed you would maintain 
was not enough, because, while this 
gave you a rough idea, it did not take 
into consideration other factors such 
as time off the road for fuel stops, rest 
stops or meals or the different traffic 
conditions you would find enroute. 
Traffic conditions such as leaving 1-77 
at Charlotte, North Carolina, travelling 



through town on city streets and then 
travelling state and federal highways 
that didn't allow the steady speeds of 
the interstates. 

To this end I wrote a program that, 
when combined with the printer, al- 
lowed you to input certain factors and 
then produce a printout to take with 
you th?t listed your intentions for 
stops and at the same time added time 
factors to your trip for those stops, 
thus giving you a more accurate pic- 
ture of your total time enroute. 

To use the program it is necessary 
to break your trip down into no more 
than ten segments in length with each 
segment having a minimum length of 
20 miles and a maximum of 160 miles. 
You then pick a starting and ending 
point for each segment. Entering these 
into the computer then gives you back 
a recap of the information and when 
you enter your choice of three different 
average speeds it gives you the driving 
time for those speeds. 

Then back to the keyboard where 
the program asks you to enter your in- 
tentions on each of the segments. For 
every' fuel stop you enter, an additional 
15 minutes is added. For rest stops 
again 15 minutes and for meals you are 
given a 35-minute cushion. In addition 
to this you are asked to enter, at each 
segment, any cities over 50 thousand 
where you will have to use an innerbelt 
system, or where you have to travel 
city streets. The innerbelt adds 30 min- 
utes to your driving time, the city traf- 
fic an hour. The same is requested for 
cities from 20 to 50 thousand with in- 
nerbelts accounting for an additional 
ten minutes, the city streets for 20 min- 
utes. Towns under 20 thousand and 
outerbelts, where the traffic usually 
moves along well, are not factored. 

With this information in place you 
are given the total driving time for 

II 
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each of the three average speeds you 
selected and then you are asked to nar- 
row that choice to one average speed. 
It does not have to be one of the previ- 
ous three. 

With this done the computer then 
continues its printout, giving you a rec- 
ord of each segment at the final aver- 
age you chose and listing the segment 
points, the routes you indicated, the 
mileage of the segment, the number 
of rest, fuel and meal stops that you 
planned. It also tells you that consider- 
ing all the factors you entered (meaning 
all these factors plus the city informa- 
tion), the drive from point A to point 
B at your average speed will be X num- 
ber of hours expressed in tenths. 

Each segment is listed separately 
until all ten have been recapped. Then 
you are given the total time enroute 
and a comparison graph of the seg- 
ments. If, as in the case of our camp- 
ing club, the trip involves more than 
one vehicle, you are given the option 
of printing additional copies of the 
segment-by-segment portion. When 
you are finished you have a very 
personal, highly informative trip 
schedule. 

The real test for the program came 
when we set out for Myrtle Beach and, 
except for a couple of unplanned rest 
stops, too much coffee (an unfactored 
item), the times were near enough to 
call the program a success. 

An interesting sidelight to the pro- 
gram is that word got around about 
what 1 was doing and someone at the 
office asked me for a copy for them to 
use for a different trip. This caused a 
small problem because I had to explain 
what kind of information I would need 
to make their schedule. As the expla- 
nation became rather lengthy, I turned 
to a new task and created a question- 
naire that asks for all the information 
needed to make the program work. It 
saves a lot of time in the way of expla- 
nations and I plan to use it myself in 
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the future as a guide to what I want to 
do when on other trips. 

With the success of the trip planner 
I jumped in with both feet and decided 
that all the records associated with our 
camping could be computerized just as 
easily, giving me the ease of recall that 
I would need if they were to be practi- 
cal. These programs, which center 
around reading data statements into 
an array, are proving to be worth their 
weight in gold. They have been so easy 
to use that the original ideas have been 
expanded to the point that I now have 
every piece of information that 1 need 
during the camping season at my fin- 
gertips almost instantly. 

The first of the programs to be cre- 
ated was CAMPER STATS. A program 
where I could readily keep track of 
such varied items as annual and total 
mileages, campouts we have been to 
with the club, family camping ventures 
on our own, expenses for the camper, 
very important serial numbers and 
phone numbers for suppliers (of appli- 
ances, our camper itself and the like). 

The menu for CAMPER STATS 
provides several options including 
mileage totals for each year since the 
camper was delivered, a running total 
of the mileage to date. Both listings 
give me the date, destination and the 
miles travelled. The second function 
allows me to examine for each year, 
or as a total to date, all the campouts 
we have attended with the club. This 
printout gives me the dates, locations 
and mileage. The same is true for camp- 
ing activities as a family outside of the 
club structure. 

Camper expenses are another option 
that I can recall, giving me the reason 
for the expense, the cost, where pur- 
chased and the date. These expenses 
are recallable by year and as a total 
since the camper was new. It allows me 
to check back on when we did what 
and what item, wheel bearings as an 
example, may be coming up for main- 
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COW BAY COMPUTING 

has a !ot to offer you and your 

PET/CBM/COMMODORE 64 



SOFTWARE FOR THE CLASSROOM 



o The Pet Professor 



$499.00 



o With Management Svstem 

$649.00 

A total arithmetic package 
with step-by-step 
instruction. 77 programs in 
addition, subtraction, 
multiplication and division on 
cassettes or disks. Ask for a 
sample. 

Specify disk drive and 
computer configuration. 



WORKBOOKS FOR COMPUTER 
LITERACY 



o Feed Me, I'm Your PET 

$5.95 

o Looking Good With Your PET 



o Teacher's PET 



$5,00 



STUDENT SCHEDULING SYSTEM 



o Fast, accurate, easy-to-use 
and less expensive than 
current methods. 

o Uses a SC32 computer and 
S050 disk drive 

o 90 Day Money Back Guarantee 
to prove that it can be done. 



COW BAY COMPUTING 

P.O.Box 515 

Manhasset, N.Y. 11030 

(516)365-4423 
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tenance again. 

Finally the menu offers a section on 
vital statistics and data input format. 
In the vital statistics section are stored 
model and serial numbers for the 
camper and its appliances, phone num- 
bers for suppliers and dealers and ve- 
hicle licensing information. The final 
choice is a section that gives me exam- 
ples of the data lines and how each is 
filled out for the varied items. It tells 
me at which line number the data state- 
ments begin and how each is formatted 
along with notes that might require a 
special formatting in certain situations. 

The key to the use of the program is 
first reading the data into an array and 
secondly coding the data statements by 
number, such as DATA1, DATA2 and so 



forth. It makes sorting the information 
out much easier and faster. 

In the second program the same 
basic format was used. It reads data 
into an array and uses numbered data 
lines to key in a particular function. 
The program, CLUB-CAMPS-ROUTE, 
does not have as full a menu as CAMPER 
STATS, at least not at this point, but 
it more than serves the purpose for 
which it was intended. At the top of the 
menu is a listing of the members of 
the camping club, which is intended 
not as a mailing list but rather to pro- 
vide quick access to addresses and tele- 
phone numbers as well as club unit 
members. You may search this section 
for a particular individual or recall the 
entire list. 



Have you ever taken a particular 
trip, and when you decided to go back 
again to the same place, have trouble 
remembering the routing you used? 
The second section of the menu allows 
you to recall trip routings by entering 
the destination point or by calling up 
the entire listing. 

Campground listings compose the 
major section of the program and are 
the listings that will in all probability 
prove to be the most useful. Here, en- 
tered in data lines, are the names, ad- 
dresses and telephone numbers of 
campgrounds that are repeatedly used 
or are favorites. They may be recalled 
by entering the name of the town 
where the campground is located, or, 
should you not remember the town, 
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SEGMENT 
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RSHLRND TO 3TRRSBURG. , .-US 250 52 MILES 


SEGMENT 
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STRR3BURG TO MARIETTA ...1-77 - 91 MILES 
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MARIETTA TO RIFLEV . . . . . 1-77 ■■• 50 MILES 
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4 
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SEGMENT 
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entering the abbreviation for the state 
and recalling all listed campgrounds in 
that state. If you want the total listing, 
that is also available. An added feature 
of this section is the listing of favorite 
campsite numbers so that when you 
make reservations you can request the 
same campsite. 

Data input information is also a fea- 
ture of this program as well. A menu 
choice allows you to find the begin- 
ning of data lines by number, gives you 
examples of each type of inpuc and also 
gives you special notes that are pecu- 
liar to particular entries. 

Both of the programs offer you a 
choice of screen or printer display. In 
some cases you can have both, in 
others you choose between the CRT or 



the printer. Say, for instance you want 
to return to that favorite campground 
next month. You can punch it up on 
the screen and get the phone number 
and preferred site number so that you 
can make reservations. Then before 
you leave you can printout that infor- 
mation for the office, relatives or any- 
one else who might need to find you in 
an emergency. Or, in the case of data 
input info, you might need just a print- 
out to refer to as you enter new data 
into the program. 

All-in-all there is no doubt that my 
64 and the RV and travel programs we 
created together are about as indispen- 
sible to me as the trailer hitch on the 
car. Surely if it had not been for the ease 
of operation that the 64 provides over 



some other computers I have seen the 
programs would not have been as easy 
as they were to create, edit and debug. 

As to the original reason for our 
64 purchase, well, my wife claims she 
doesn't get enough time on our 64, and 
you know something? She's right. So 
are our two sons, who have the same 
complaint. If this keeps up we easily 
could become a two 64 family. And who 
says computers are toys? Toys, heck, 
they are a practical necessity in this day 
and age. If you want to play games on 
your 64 that's fine with me, but I'd 
rather camp with mine. C 



Following is a sample of what Chic's 
program gives you. 



WE ALSO KNOW THE TOTAL MILEAGE = €~?2 

ME KNOW THAT THE BASIC TOTAL TIME IS 
!„ , . „ 45 MPH ■ 14,93 HOURS 

2, . « , 58 TIP H ~ 13,44 HOURS 



NOW WE ARE READV TO TIME EACH LEG 
AND DO IT EXACTLY i i : ; i : ! : ; ; : : ! i ! ; 



I WILL. ADS TO ADJUST TIMES 

1. FUEL + 15 MIH., MEALS + 35 WIN. .REST STOPS ■■*■■ 15 KIN. 

2. CITTES OVER 50 THOUSAND WITH IHNERBELTS WILL 'BE + 30 KIN. 

3. CITIES OVER 58 THOUSAND WITHOUT IHNERBELTS ■■'■ 1 MR • 0UTERBELT8 
+ D TIKE • 

4. CITIES FROM SO TO 50 THOUSAND W/INNERBELTS + 19 MIN • WITHOUT 
J - 20 MIN 
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OWNS UNDER 20 THOUSAND ARE NOi FACTORED., 



r--f ,p 'i r-i-1-r- r-r"r"r-r'T" , r~l""'~-!--i-i i H"T~r" l " I" i " I r i * f T"tT ' TT ' *M r+ 



-i > :--. h 



! i ;. lc5 



iuTRu, riluES ~ ASHi-AriD ■- MfRtLfc Bcfi 

F"0 f fiL. ADJ"USTc.D i IME ENROUTE AT 45 i v iF'ri IS 20. 71 HOURS 

TOTAL ADJUSTED TIME ENROUTE AT 59 MPH IS lSn22 HOURS 

fOTAL AD-JUSTED TIME ENROUTE P<~ 55 MPH IS i 7 ,,'3:9 HOURS 

ON VOUR QUESTIONNAIRE VOU CHOSE 58 MPH, 

USING t'OUR CHOICE OF 59 MPH I Wit L RECAP EVERVTHING ~ 

TAKING ALL Trie, FACTORS PROVIDED AND ENTERED INTO CONSIDERATION. 

hicRE to t -.j'.. i i t .' PtxR tOMAL i ■ ■' ■ r' : v ri',":. ,- ;■■"■■--'."'■ '..■"'"■■' ;":-?p "THS KNIGHTS 
ASHLAND "■•■ MVRTLE BEACH ' : - : <~~ r '2. TOTAL MILES 



SEG'MEN ( ONt 

RSHuBND TO STR 



iJgUKu ■• > 



S <?•: "" '"''lijHi. S 



MILES 



r ithU 


-"> 


Ur'y 


— 


y 


"UEL 


S 


"0?'S 


- 


® 


RE'oT 


o 


OPS 


_ 


I"! 



C N 3 1 D ER I N RL L T HE F R 
AT 5S M ■"'■-■! EQUALS* i » 



i ORS t'Ou EN t ERED EARLIER 

.- „ !,_(!-"; 250 

2 HOURS 



■'■•I i ht. PROGRAM 






., j,-"--*--' fcWUfll_b S'l Pi! Lc; 



MEAL 


STOPS - 





FUEL 


STOPS ■■• 





f '-'!E'-' f 


STOPS - 


O 



CONSIDERING RLL THE FAC-TOf 

STRASBURG TO MARIETTA - .. 

AT 50 MPH 55 2« 22 HOURS 



JiJ '':.}■■< i tiRc.D cARl, I E 
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SEOMEN r i HREE 

MARIETTA TO RIPLEV. ■ . „ I — 7? EQUALS 59 MILES 

MEAL STOPS - 1 
FUEL STOPS — a 
REST STOPS - Pi 

C H S I D ER I N ALL T H E FACTORS VOU E N T E R E D EflRL I ER 

MRRIETTR TO RIPLEY. . . » J--77 

RT 50 Pii-'n™ 1 „ o HOURS 



SEOMEN ' FOUR 

Rlri-Ef i PRINCcTON. . ■ . ■ . a *■-'■' 7/ W, VR.~P« EQUALS 124 MiLES 

MEAL STOPS — i 
FUEL STOPS - 1 
REST STOPS -■ 1 

CONSIDERING ALL THE FACTORS '-'OU ENTERED EARLIER 

RIPLEV TO PRINCETON,, . . I-77/W, VR« TP. 

AT 33 MFH* 3.48 HOURS 



SEOMEN i F 7 'v'c 

PRINCETON TO I -Si . . , 1—77 EQUALS 36 MILES 

MEAL STOPS — 

FUEL STOPS - 
REST STOPS - X 

CONSIDERING ALL THE FACTORS VOU ENTERED EARLIER 

PRINCETON TO 1—63 ■ » . 1-7? 

RT 50 MRU- „ 52 HOURS 



I —Si TO I —40. ............ I~7~ EQUALS S'~ M 

MEAu. S I OPS ~ 9 

FUEL STOPS - i 
REST STOPS — 2 
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C ; " j S 1 D E "■; I N G . ::: 'i\... "... T H E FR C T OR S S ' ; ' E !- : T E '' : " E 1 ■ E P R L . I E R 




I —8 1 T I~40. , „„■,,.„.. 1—77 




RT 38 MPH= 2.5^ HOURS 




SEGMENT SEVEN 




j -40 TO CHARLOTTE. . . , », I-~7 EQUALS 38 MILES 




ME PL STOPS 




FUEL STOPS 8 




PEST STOPS - S 




CONSIDERING ALL THE FACTORS VQU ENTERED ERRf. IER 




1 40 TO CHARLOTTE . . .T -77 




|-;T "IF: MPH= ~jf. HOi IR£ 




SEGMENT EIGHT 




LnnKLu 1 Ic .•.(■'!.' ■■, .•■■ :i . ,■•■> EQURlS ■■ nIu.ES 




MERL STOPS - 3 




CT; ;,-r: c; - t" •'"< ir* "r - -... ■> 




;'r'r~:";T ■-. ■-■ ■'"! :::■ ~ ... "■ 




CONSIDERING ALL THE FACTORS VOU ENTERED ERR! IER 




CHRRLOTTf 10 WRDESBORO. , ., . JJS 74 




; :-:,r so tvfPH= 2.98 HOURS 




SEGMENT NINE 




WRBESBORO t S I-95....US 52/SR 9/8R 38 EQURi S 60 MILES 




MEAL STOPS 9 




;r; |;r; CTHPA ■- 5 




RES 1 3 i ' iPS ■"" 




CONSIDERING Rl ; . THE FACTORS ~'0U ENTERED ERRLIER 




WRBESBORO TO 1 93 US 3S/SR 9/SR 38 




RT gg i-'|PH" 1 , < : " HO" iR3 




RF0MEN7 ■ b.N 




j„35 to MV'RTLI BEACH SR 36/US 505 EQUALS So MILES 
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MEAL STOPS - 




FUEL STOPS - @ 




REST STOPS ..- j 




CONSIDERING ALL THE FACTORS VOU ENTERED EAR! IER 




I —S3 TO MVRTLE BEACH* - - , SR 3S/US 301 




ST 50 MPH— I ., 5 HOURS 




TOTAL TIME ENOUTE AT 30 MPH IS 




18 HOURS 




COMPARISON OF MILES PER SEGMENT 




10 ii 40 ii 83 5 120 5 160 < : 




" « ■■ r 
) .i ii :l It 




SEGMENT 1 




:v;.:.- : >: : :-:x:::.;::; : ;^x;:::: : ;:;:>Vr;..::ri:. : ;;::xS 




SEGMENT 2 




WWM!W$M#^M?MM?MM3W: 




SEGMENT 3 




:-: :'' : :V-:: : :;t^-':':::;: : -:'!: : :'>'!" : :'*:' : ';V : . : ;':' '"'"'' 




SEGMENT •••: 




W.^M l ^^^ f M^^WW : ^ , W^ : f^^MM^^^!^^ 




SEGMENT 5 




: -i : * : X : XX:VVi*' i 'WM 




SEGMENT 6 




;-&$3$| 4 - ' ■ :i;ff- :: ■-^ ' W- : ; -:: : : ; : - :•'-■■' - 




SEGMENT 7 




W?^MWiW^t ? 




SEGMENT 8 




_V •i:.;.-.;.:..-.;^;.- ■;.:.;. ;.--:. :-:■■-*.:-:.:.■■*.:.: ■.■;-; ."M ■";■■■■:■ 




SEGMENT 9 




. ■-.,■.■.■..'. ■ . .■.'.-.■.'.■.. . .".-.'. . ..... .. ..*.'.*.*.'.■ 




SEGMENT 10 




"" : ; : ; , i;:':; : :'' : '': ;: i H : : :'>V :: '-'-:v^.!' ^■''''''■'■^"''ii ' ' : ^"'^ 




VOU-'RE ALL SET, THE KNIGHTS 




MJESH I WERE GOING ALONG 




M iR V F~ «" : 3 S ;' : ~s 5~ iFE T T < T : F* r 





li 
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programmers tips 



No List/Save 



by David Williams 

Reprinted with permission from InfoAge, January, 1983 



During a recent meeting of the Toronto PET Users' 
Group, a member asked if there was any way to prevent 
users from LISTing programs. It turned out that he was 
a teacher whose "students" had the annoying habit of 
LISTing and deliberately altering programs, and then of 
asking him to diagnose and cure the problem. In answer 
to the question, I demonstrated the following technique, 
which provides a slight deterrent to this behaviour. 

If the program already has a line numbered zero, change 
its number to something else. Then write the following 
line at the start of the program: 
REMXXXXXXX 

It is important that there should be seven "X"s after 
the REM. Then carry out the following instructions in 
direct mode. 
PET/CBM: 



FOR 1=1033 TO 1035 
POKE ■■'-,,- gig 

Commodore 64: 

FOP 1=2054 TO 2?*:? 

POKE 2060 ..204 
VIC 20: 

FOR 1=4105 TO 4U0 
c ,.-., /r j . , , 504 



POKE 1,20 : NEXT 



POKE L20 



kJCWT 



POKE 1,20 : NEXT 



Now enter the instruction "LIST". The PET will respond 
with the SYNTAX ERROR message and will refuse to list 
the program. However the program will still RUN properly. 
It can also be SAVEd in this form, so that it will automati- 
cally be protected after it has been re-LOADED. 

The degree of protection offered by this method is, 
however, very slight. The direct-mode POKE instructions 
change the "X"s in the REM at line zero to characters which 
mess up the LIST routine when it tries to decipher this 
line. However, if the instruction "LIST-1" is entered, line 
zero will be skipped, and the rest of the program will be 
listed normally. It is possible to put additional lines of this 
type into the program, but finding them in memory' in 
order to address the POKEs properly is a problem, and the 



additional protection is not great. 

I was astonished at the amount of interest this little 
demonstration generated. It seems that many teachers 
suffer from the activities of students who enjoy messing up 
programs. They also, it turns out, frequently find the kids 
making illicit copies of copyright software. Preventing these 
two activities has become a major concern in computer- 
equipped classrooms. 

I therefore wrote the following little program which 
provides a somewhat better degree of protection than does 
the technique described above. It works by patching a ma- 
chine language routine into the PET's operating system. 
This looks for LIST, SAVE and DSAVE instructions and re- 
fuses to carry these out. All other operations of the com- 
puter are unaffected. To use this routine, simply load and 
run the program. It will ask whether you want "reset pro- 
tection." If you answer in the affirmative, the effect of any 
of the forbidden instructions (or of an attempt to break to 
the machine language monitor) will be to make the PET 
reset itself, completely erasing the programs from its 
memory. This is an effective way to prevent LISTing or 
copying! If, however, you decide that this is too extreme, 
answer "no" to the question. The forbidden instructions 
will then only make the words "don't do that!" appear on 
the screen, nothing more. You can then load whatever 
program you wish your students to use, and they can do 
so without easily being able to either LIST or SAVE it. 

No system such as this, which is purely software-based, 
can provide a completely impregnable degree of protec- 
tion. It is always possible to reverse the changes which it 
makes to the operating system. The simplest way to do this 
is simply to turn the machine off, then on again, and to re- 
LOAD the program which you were trying to protect. If how- 
ever, you take steps to prevent this, such as by removing 
the tape or disk copy of the program, the task of disabling 
the LIST/SAVE prevention routine without resetting the 
machine becomes one which requires some fairly detailed 
knowledge of the PET's inner workings. I could certainly 
do it, but I'm not about to publish how! C 
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No List/No Save for PET/CBM 



REM "NO LISt/SflVE'i DAVID WILL I AMR, 1932 

1 : 

2 REM PROGRAM DISABLES 'LIST". "SAVE" AND "DSAVE" COMMANDS 

, 512 IP SH0ULD BE USEFUL F0R COPYRIGHT PROTECTION IN SCHOOL ENVIRONMENTS ETC 
4 REM IF "RESET PROTECTION IS CHOSEN, ANV ATTEMPT TO USE ANV OF THESE rnMhfANDS 

3 REM (OR TO BREAK TO ML MONITOR) WILL CAUSE PET TO RESET, ERASING ALL PROGRAMS 

6 REM (INCLUDING THIS ONE) FROM MEMORY, amaxno ^ ^KUUKHn. 

7 REM MINOR LIMITATION: PROBLEMS MAV OCCUR IF SHIFTED THARACTER^ 

8 REM APPEAR IN "REM" STATEMENTS IN PROGRAM BEING PROTECTED." 

10 S-909:F*937 

20 FOR I =STOF : READA : POKEI > fl : OC+P. : NEXT : I FC0939STHENPR I NT : PR I NT " DATA ERROR " : STOP 

30 SVSS 

49 PRINT :PRINT"DO VOU WANT RESET PROTECTION^ (Y/N) " ; 

30 GETG*: IFG*O"V"RNDG*O"N"THEN30 

60 PRINT" S" J G*: IFGf="N"THEN90 

79 P0KE146, PEEK(65332) : POKE 147, PEEK (65533) 

80 POKE947,0 
90 REM 

1000 D8TA169, 76, 133, 112, 169, 154, 133, 113, 169, 3, 133. 114,%, 230, 119, 208 

1001 DATA2, 230, 120, 72, 132, 72, 160, 0, 177, 119 . 201 , 135, 240 , 8 , 201 . 148 

1002 DATA240, 4, 201, 213,208, 19, 169, 128, 145, 119, 132,200, 145, 119, 1*0, 16 

1003 DATA183,203,3,32,210,255, 136,208,247, 104,168, 104,76,113,0,13 

1004 DATA33, 84 ,65, 72, 84, 32, 79, 68, 32, 84, 39, 78, 79, 63, 13 

To use the program on the VIC 20 and Commodore 64, 
change lines 70-1004 as follows: 

70 POKE790, PEEK (63532) : P0KE791 -PEEKC63533) 

80 POKE947..0 
90 REM 

1000 DATA169, 76, 133, 113, 169, 154, 133, 116, 169, 3, 133, 117,96,230, 122,208 

1001 DATA2, 230, 123, 72, 152, 72, 160, 0,177, 122, 201, 135, 240, 8, 201, 148 

1002 DPTA240, 4, 201, 213, 208, 19, 169, 143, 145, 122, 152, 200, 145, 119, 160- 16 

1003 DATA133,203,3,32,210,255, 136,208,247,104,168, 104,76, 121,0.13 

1004 DATA33, 84, 65, 72, 84, 32, 79, 63, 32, 84, 39, 73, 79, 63, 13 

READY. 
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programmer's tips 



Dollars and Cents Make Sense 



by Joe Roteilo 



Line up decimals automatically when you're 
doing money calculations, and avoid making 
costly errors. This program is set up for the 
Commodore 64 but can be used with any Com- 
modore computer by making the modifications 
mentioned in Joe's line-by-line explanation. 

Among the myriad applications of your Commodore 
computer are programs that call on the user to input 
numeric data in the form of "dollars and cents", for 
example, 123.45 or .32. 

One of the features you might need as a user of such 
a program is the ability to enter many financial figures 
rapidly. Another might be the ability to print those figures 
to the video screen or printer in a justified manner, that is, 
where the cents portion of the numbers all line up to the 
right of the decimal point, something like this: 

156.23 
8956.12 
7.94 
.02 

The program we are about to describe is one method 
for performing the following functions: 

1) Allowing number entry in dollar-and-cents format 
without having to enter the decimal point. For example, 
234.45 would simply be entered as 23445. The computer 
program recognizes that the user means "two hundred 
thirty-four dollars (and) forty-five cents". 

2) Expanding on (1) above, the user may enter "2" or "02" 
and the program still recognizes that the user means "two 
cents" and prints out ".02" to the video screen or printer. 
Further, the user may enter an even dollar value, for exam- 
ple "100", and the program will correctly recognize the ".00" 
so the printout will appear as "1.00". (BASIC is notorious 
for wanting to forget about the ".00" and loves to display 
even-dollar values as "1", which will generally mess up 

not only printouts but your mind as well.) 

3) The program will correctly justify any number when 
printing it either to the video screen or to any (we said 
any) CBM or other compatible printer. At this time, the 
maximum figure we can work with is eight actual digits, 
or 999999.99. 



4) The program allows negative amounts, for example 
-124.03, to be entered. At this time, our program does 
not add or subtract these numbers, but you can modify 
the routines for inclusion into your own programs. 

What follows is not the ultimate answer, but it does 
serve to show how to accomplish both "decimal-less" entry 
and number justification at the same time. The program is 
more of a tutorial so you can take the routines presented 
here and mold them to your own needs and programming 
style. The end result is that our "dollars-and-cents" finan- 
cial data entry is greatly speeded up now that we don't have 
to worry about that !##%"$! decimal point every time we 
enter a figure. 

The code is about 80 lines in length, half of those being 
REMark statements that aid us in seeing how the code 
works. For this first time, enter the program as it is pre- 
sented. Later on, you can remove the REMS and put more 
multiple statements on one line in order to shorten the 
code and speed things up in BASIC. 

The justification feature permits a very neat and orga- 
nized look in your reports and listings, on video or printer. 
Those who are blessed with PETSpeed™ can compile 
the program for even faster results. (If you don't have 
PETSpeed yet, shame on you!! Go out and buy a copy and 
then finish this article!) 

Some information on a few important lines is in order: 

190 Variable T sets the tab for the video AND the 

printer output. 
230 Variable LE sets the maximum digits allowed by the 

program. You could change LE to allow for custom 

program uses. 

350 Those who use 8000/9000 series CBMs may want to 
take advantage of the available CHR$ function to 
erase a line. 

370 This second method of erasing a line works on all 
CBM products. If you want, use this method instead 
of line 350 (but not both at the same time!). The line 
states "(home cursor][4 cursor down](27 spaces) 
[1 cursor up]". VIC 20 users will have to make allow- 
ances for the 22-character VIC screen width. 

530 The final product, z$ contains the justified number 
in string format, printed variable T number of spaces 
on the video screen or printer. 

690 Modified "Universal Data Entry" routine (see March, 



li 
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1983, Commodore Magazine) . Note that the routine 
allows only numbers and a possible " — " to be entered. 
If the user inputs letters or decimal points, they are 
ignored. Use the [INST/DEL] key to delete or correct 
the entry before pressing the [RETURN] key. C 



19 REM WW************************************** 




20 REM * 


* 




30 REM * 


PROGRAM TO ENTER DOLLAR AMOUNT WITHOUT * 




40 REM * 


NEED TO KEY IN THE DECIMAL POINT * 




30 REM * 


* 




60 REM * 


PROGRAM ALSO JUSTIFIES NUMBERS FOR * 




70 REM * 


PRINTING TO EITHER VIDEO OR PRINTER * 




80 REM * 


* 




30 REM * 


PROGRAM" ALLOWS NEGATIVE NUMBERS TO * 




100 REM* 


BE REPRESENTED AS "-XX" * 




110 REM* 


* 




120 REM* 


J. ROTELLO 03 12 83 * 




130 REM* 


COMPU SYSTEMS MANAGEMENT * 




140 REM* 


* 




x J L- Ktn*™**T**T*"*****T™*"^¥ir™™"TT**T¥****T**¥*** 




160 REM 






170 REM 






180 REM 


SET PRINT TAB POSITION 




190 T=23 






200 REM 


SET CONSTANTS 




210 V*(0> 


=CHRf(173) : V*(l>=" " : F0RZ=1T025:DZ*=DZ$+"M"-NEXT 




223 REM 


SET MAX ENTRY, 8 DIGITS (99999.99) 




230 LE=»3 






230 REM 


SELECT DISPLAY DEVICE 




260 PRINT 


"S V BIDEO OR 3 P B?INTER ?" 




270 OETW* 


:IFW**""THEN270 




280 IFWf= 


"V"THENX»3:GOTO310 




290 IFWt* 


"P"THENX=4:GOTO310 




300 G0T02 


70 




310 PRINT 


"y.Ut*"" 




320 PRINT 


"•ENTER AMOUNT IN CENTS" 




330 PRINT 


""ENTER <RETURN> TO END" 




340 REM 


ERASE LINE (8000/9000 COMMAND) 




330 REM 


PRINT"MWCHR*(22); 




360 REM 


ERASE LINE, PRINT 27 SPACES (OTHER PETS, ETC) 




370 PRINT 


'"mm T 
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INNOVATIVE ORGANIZERS, INC. 
For Commodore 64™ & VIC-20™ 




WELCOME, to the family of INNOVATIVE ORGANIZERS. These ATTRAC- 
TIVE power organizer stands, made of ABS PLASTICS, U.L. RATED, provide an 
opportunity for a more PROFESSIONAL looking computer installation, both at 
HOME and in the WORK PLACE. 

There is AMPLE room under the organizer to place all the computer 
accessories: POWER SUPPLY, MODEM, GAME CARTRIDGES, MEMORY 
EXPANSION, and MUCH MORE. 

Now. let's examine how these organizers work. There are 3 CRT-Models. 
CRT-1 holds a Monitor or T.V. Set and a VIC 20 or 64. All wires & cartridges fit 
neatly under the organizer. 

CRT-2 same as CRT- 1 , but also has: ONE-STEP MASTER SWITCH (permits 4 
pieces of hardware to be turned on and off from one switch, plus circuit protection, 
incoming power fused with 6 AMP Fuse). 

CRT-3 same as CRT-2. but also has: SURGE & SPIKE PROTECTION built in. 
P-D-l: HOLDS 1525 PRINTER & 1541 DISK DRIVE. 
All wires & cartridges fit neatly under the organizer. 

Ask about our Power Lock Switch & Power Portable 
Computer Fan & 2 Outlet Surge & Spike Protection. 

Also: At present New Models are being developed for 
Commodore P-500 and B-500 Series. 

Vl( 2U iind ('nmmixlorr m ..re iMdcnurkt nf Cammudnrc Etocirnnln. LTD. 



P.O. Box 108. Markleville, IN 46056 




CRT-1 
CRT-2 
CRT-3 
P-D-l 



$35.95 
$ 59.95 
$ 79.95 
$38.95 



Plus Shipping 



CALL TO ORDER 
317/533-2460 

Trouble — DIAL 

317/646-8943 

Charge it on Visa 
or Master Card 

Dealer Inquiries Invited 
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programmers tips 



380 REM NULL PREVIOUS ENTRY, ENTER YOUR NUMBER 

390 flf="":B*="" : PR I NT "INPUT AMOUNT "j 

460 2M<E:GOSUB690MFBB$=""THENPRINT"."n" :GHTO420 
410 A$=BB$ : Zl=9 : BB=9 : BB*=" " : ZM=0 : GOTO430 

420 print" wrarocfloanai ok - stopped'": stop 

430 REM DEVELOP B$ 

440 REM EVALUATE, IP ONLY CENTS THEN FORMAT ACCORDINGLY 

430 S=LEN(R«:):lFS=lTHENBt=".0"+R$:GOTO480 

460 REM EVALUATE, IF "DOLLARS 4 CENTS" FORMAT ACCORDINGLY 

470 Bf«UEFTf <A$j S-2>+" . "+RIGHT*f A* , 2> 

4S0 print n mmmmm n 

490 0PEN6,X 

300 REM GO THRU ROUTINES & LOOP BACK FOR MORE 

510 GOSUB330 : QOSU8530 : CLOSES : G0TQ329 

320 REM PRINT TO DEVICE SELECTED AT START OF PRG 

336 PRINT#S,TAB<T>Z$: RETURN 

346 REM SET ROUTINE CONSTANTS 

336 Bl*=" ":B$="*":Z1$="0" :Z2$=".00":D=10 : DD=106 : 2*="" 

366 REM CHANGE NUMBER INTO CENTS 

376 X 1 = V AL < M ) ■ KS= I NT ( < X 1 +3E-63 ) *DD > : KT=KS/DD 

386 K$=STR$<KT) : IFXK6THENS26 

396 REM STRIP SIGN OFF NUMBER 

606 K**RIGHT$CK$,LEN(K*)-n 

616 REM EVALUATE, TACK ON ".00" WHERE NEEDED 

620 KU=INT<KS/D> :KV=INT(KS/DD) 

630 IFINT<KS-BD*KV)=0THENK*=K$+ZZ$ :GOTO650 

646 IFINKKS-D*KU)*0THENKS=K*+Z1* 

656 IFLEN<K$KLE+1THENK$=E1'$+K*:GOTO650 

66d REM REBUILD NUMBER SO HE CAN PRINT IT 

670 Z$=P*+K* : RETURN 

680 REM MODIFIED UNIVERSAL DATA ENTRY ROUTINE 

690 BB**"":F0RZ=6T09:GE T Zl$:NEXT:PRINTCHRtC7); 

700 PRINTV$C-V)"ir; :F0RZ=6T09:GETR1$: IFRl*s""THENNEXT:V=NOTV:GQTO700 

710 Z1=0: IFR1$>""THENZ1=ASC<R1$)AND1.27: IFZ1 = 1 3THENPRINT" " -.RETURN 

726 REM ALLOW ONLY NUMBERS INPUT 

736 IFCZ1 <<*80RZ 1 >37 ) ANDZ i O20ANDZ 1 C450RZ 1 =340RZ 1 =46THEN780 

740 BB*LEN1BB*> : IFZ1=20ANDEB<1THEN709 

736 IFZ1=20ANDBB-1THENRRINT" 1 MM II" ; = OOTO690 

760 IFZl=20THENBB$=LEFT*<BB*,BB-n: PRINT" I MM If; :GOTQ700 

770 IFBB=ZMTHEN700 

780 BB**BB*+R1*:PRINTRJ.$J 

796 GOTO760 



u 
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technical 

Getting the Most Out of (And Into) 

Your Disk Drive 



by John Heilborn 



Part 2 



Disk Operating System 
(DOS) commands that help you 
locate data. Part 1 appeared 
last issue. 

In the last article we covered the 
way in which the disk drive stores data 
onto the diskette and how to read sec- 
tors (blocks) of data and display them 
on the video screen (your television). 
This article will show you how the disk 
finds the information that was put on 
the diskette and how you can write 
data onto the diskette directly; without 
using the SAVE or typical data storage 
commands. 



The Disk Format 

When you buy a new diskette, it is 
totally blank, like a piece of paper. Be- 
fore you can write onto or read from 
a diskette, you need to FORMAT the 
diskette. Formatting is a process that 
divides the diskette up into separate 
tracks and sectors. These tracks and 
sectors are where the data will be 
stored. The FORMAT program divides 
a diskette into thirty-five tracks with 
up to twenty-one sectors per track. 
All-in-all, a single diskette has more 
than six hundred sectors, each of 
which can hold up to two hundred 
and fifty six bytes of data. That comes 
to more than 175,000 bytes of data on 
a diskette. 



The Organization of Data 

Finding a specific part of all that 
data would be an enormous task if the 
disk drive didn't have some convenient 
method of looking for your informa- 

H 



tion. To help find a particular file on 
the diskette, the disk drive maintains 
a directory on track eighteen of each 
diskette. The directory contains the 
name of every program on the diskette 
and its location by track and sector. 
Take a look at the first sector of the di- 
rectory by entering this short program: 



'4;0;l8;l 



19 0PEN15,8,t5 

20 0PEN2,8;4j"#' 

38 PRINT#15j "B-F 

43 0ET#2.,fi* 

39 PRINTR* 

SS IFST=0THEN40 

?0 CLOSES 
86 CLOSE 15 



By using different numbers instead 
of 18 and 1 in line 30, you can read any 
track or sector on the diskette with 
this routine. 

Writing to the Diskette 

In addition to the diskette directory, 
the disk drive also maintains a file that 
indicates which sectors have data in 
them and which sectors are available 
for data storage. The file that contains 
this information is called the Block 
Availability Map (BAM). Normally, 
whenever you write data onto the 
diskette, the program that writes the 
data (which is built into the computer) 
looks at the BAM and finds the next 
available free sector. Unfortunately, 
none of the functions covered in this 
article support that software, so we 
need to read and update the BAM 
manually. The commands that do 
these functions are Block-Free and 
Block-Allocate. 



Looking for Space 
on the Diskette 

Let's assume that you have a block 
of data (256 bytes) that you want to 
save on the diskette but you want to be 
sure that you don't write over some 
existing data. To make sure that a 
given sector is available, all you need 
to do is check the BAM with the Block- 
Allocate command. This command 
will do one of two things when you run 
it. It will either allocate that sector 
(mark the sector as unavailable in the 
BAM) or (if the sector is already full) it 
will tell you the location of the next 
available track and sector. The infor- 
mation about the next track and sector 
as well as whether the sector is full or 
not is transmitted through the error 
channel. 

What (you may be asking) is the 
error channel? The error channel (also 
known as the command channel) gives 
you information about certain error 
conditions that you may optionally 
read when you are accessing the disk 
drive. For example, if you try to write 
to a diskette that is write-protected, 
the diskette activity light will start to 
flash and the file will not be written. 
Sometimes, however, you will get a 
flashing light and you won't know why. 
If you read the disk error channel you 
will be able to read the error message 
generated by the disk drive itself (it 
knows what went wrong). In this case, 
the error message would be WRITE 
PROTECT ON. To read the error chan- 
nel use the following lines: 



10 


OPE 


■11.5 


o 


15 


2@ 


I HP 


JT#] 


.5, 


R,B£. 


30 


( ft J. 


-,'TR. 


B* 


..CD 
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46 CLOSE 13 

This will display the error code (A), 
an error message (B$) and the track 
and sector of the error (C & D). 

Now, in the case of the Block- 
Allocate command, you're really only 
interested in B$,C and D. If B$ is "OK" 
then the track and sector you selected 
have been allocated on the BAM. If B$ 
is not "OK" then C and D will contain 
the next available track and sector 
(Note: these will not have been allo- 
cated and you will have to perform 
the Block-Allocate instruction again 
to allocate the new track and sector). 

Here's a routine that will look for, 
allocate and display the location of 
the next available track and sector on 
a diskette. 

10 0PEN15,S,15 
20 PRINT#15,"B-R:"0;l;l 
30 lHPUT#15,fi,B*,T,S 
40 IFB$="0K 1 'THEHT=1:S=1 

: GOTOS0 
50 PRIHT#15.. "B-fl:"0.;TJS 
60 PRINT"TRACK=";T, 

"SECT0R=";S 
70 CLGSE15 

Storing Data 

The track and sector information can 
be used to write to the disk also. Here's 
a data entry routine that puts data into 
the direct access channel: 



100 0PEH2,8,4,"#" 

110 1=1+1 

120 PRINT" ITEM": I 

130 INPUTX* 

140 IFK$="XXX"THEN1?0 

150 PRINT#2,X* 

160 OQTO20 

173 END 



Now all you have to do is transfer 
the data from the direct-access chan- 
nel to the diskette. To do this you 
can use the Block-Write command 
as follows: 

17@ PRIl-rr#15>"B-l'J:"4;e;T.;S 

and CLOSE the channels: 
I 80 CL0SE2 : CLOSE 1 5 

System Capabilities 

Although we've only covered four of 
the Disk Operating System commands, 
we now have enough information to 
write a complete mailing list system. 
The last article in this series will in- 
clude a mailing list program and some 
guidelines to help you add as many fea- 
tures to it as you might need, c 



VIC-20™ 



I 



J] 



) INTERFACING BLUE BOOK 
you Know that your VIC can be used to 
^ control a 99« toy motor so effectively lhal il 
ft runs like a precision machine? Or that you can 
2 build an accurate digital thermometer using 
the VIC and lour parts costing [ess than S5? 

These and other ia interfacing projects 
selected Cor usefulness, ease ol construction 
and tow cost are detailed in the VIC 20 Inter- 
lacing Blue Booh, a rentable gold mine ol prac- 
tical information on how to build a variety of in- 
terfaces lor yOur computer. 

Projecis include. Connecting VIC to your 
stereo; Pickproof digital lock; Capacitance 
meter; Liquid level sensor; Telephone dialer; 
Voice outpul; 8K/16K RAM/ROM expansion; 
128K RAM eapans on: 8- bit precision DiA. 8 bit 
A'D converter; MX-BO interface and more 

Written by a college professor in a friendly £ 
and informative style, the Blue Book gives you 
theory ot operation, schematics, program 
tistmgs, parts list, construction hints and 
sources of materials tor each one of the 20 pro- 
jects. 

if you *anr to get the most Out of your VIC 
thts book is a must. Cost is Si<5.95tFess than 
?5c pe' proiectll Prtce includes postage [■ 

VIC 20 s a trademark of Commodore Electronics Lie 

micrDsignal d« p ic6 



p.o. box 
millwood 



HY 1Q546 



Pluase send me a copy of the Blue Book. 

Enclosed my check frj( S 

NAME __ 



Above prices mctude postage in the 
US CA res ada6 a ;ia> Foreign aad S2 



nov 

\^J^ recreation 

& business 



1 MM VIC 20 
j COMMODORE 64 



for education. 




MO.NOPOLY-64 19.95 

APE C RA/E-64 14.95 

PEARL D tVER-44. .. . 19.95 

LOGGER-64 24.95 

INTRUDER SCRAMBLER .... 17.95 

CHOPI.IKTER 34.95 

EASY SCRIPT-64 Word Processor 

Reg. 99.95 114.95 

DATA-MANAGKR 

VIC-20 69.95 

Commodorc-64 H9.95 

GENERAL LEDGER 

VIC-20 89.95 

Commodore-64. .99.95 



ConimxJoiG &* ft VIC is .1 f eq trailenuirk ot 
COMMODORE Bus Machines. Inc 



pyramid 



Send check or moncj 
order. COD add S2 00. 
Shipping SI. 50 

(fi09) 386-9353 



computerware 



27B Warren St, Edgewater Pa*. Nd Q&TO 
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user departments: 



VIC 20 



Tricky VIC Dynamic Bookkeeping 



by Ron Kushnier 



Type and save this bookkeeping program for the unexpanded VIC 20, with the option to expand it later. 



My primary objective for developing a bookkeeping 
program was to provide a utility that was friendly, useful, 
and fast. To meet this objective, I wrote "PET Dynamic 
Bookkeeping", which appeared in the February, 1983, 
issue of COMPUTE* magazine. 

The cassette-based program used dynamic keyboard 
techniques to automatically change system pointers, thus 
saving variable and array information within the program. 
This eliminated the need for DATA statements or slow data- 
tape files. The dynamic keyboard is a whole subject by itself. 
Suffice it to say that it is a technique that allows the com- 
puter to modify its own program by POKing into the key- 
board buffer. 

When I added the fast "Rabbit ROM" cassette utility 
to my system, I was able to load 10K worth of program 
and data in less than a minute. This was a time-frame 
I could live with. 

To my surprise, most of the feedback from my article 
came from the VIC community rather than PET people. 
They wanted to know whether a similar program could 
be written for the VIC. 

This turned out to be relatively straightforward. It was 
just a matter of adjusting a few pointers and reformatting 
some PRINT commands. The real challenge came when 
I tried to compress the program into an unexpanded VIC. 
The result is a much more refined program, which is set 
up for easy expansion when additional memory is added. 



Sample Run 

The program provides the following screens: 
BOOKKEEPING PROGRAM 

BILLING LIST 

1 CHARGES (81.31) 

2 GASOLINE (23.54) 

3 UTILITIES (204.05) 

4 END PROGRAM 

WHAT WOULD YOU LIKE TO SEE? TYPE 1 TO 4 
1 



CHARGES (81.31) 

1 GIMBELS (68.53) 
2PENNEYSU2.78) 

3 SEARS (0) 

4 BILLING LIST 

WHAT WOULD YOU LIKE TO SEE? TYPE 1 TO 4 
1 



GIMBELS (68.53) 


1 JAN ...22.56 


2 FEB 


. . 45.97 


3 MAR 


..0 


4 APR 


..0 


5 MAY 


..0 


6 JUN 


..0 


7 JUL 


..0 


8 AUG 


..0 


9 SEP 


..0 


10 OCT 


..0 


11 NOV 


..0 


12 DEC 


..0 


CHANGE THE LIST (Y/N) 


Y 


TYPE MONTH (1-12) 


THEN HIT RETURN KEY 


3 


MAR ... 





INPUT AMOUNT. THEN HIT RETURN KEY. 
34.23 

MAR . . . 34.23 

RECORD ALL DATA? (Y/N) 

N 

CHARGES (115.54) 
1 GIMBELS (102.76) 
2PENNEYS(12.78) 

3 SEARS (0) 

4 BILLING LIST 



U 
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WHAT WOULD YOU LIKE TO SEE? TYPE 1 TO 4 

4 

BILLING LIST 

1 CHARGES (115.54) 

2 GASOLINE (23.54) 

3 UTILITIES (204.05) 

4 END PROGRAM 

WHAT WOULD YOU LIKE TO SEE? TYPE 1 TO 4 
4 

OK TO SAVE PROGRAM 



Program Explanation 

Line — This line jumps to the subroutine that adjusts 

pointers to include data. It is also used to jump over the 

DIM statement on line 5. 

Line 5 — Dimensions the needed arrays. 

Lines 10-90 — Initializes the program and defines the 

names used on the screens. 

Lines 100-330 — Displays the billing list and data lists to 

be updated. They also direct the user to the SAVE routine. 

Lines 340-380 — A subroutine used to bring back the 

number of a selected entry. 

Lines 390-420— A subroutine used to select a YES or NO 

(Y/N) answer. 

Lines 430-470 — A subroutine used to return the number 

of a month. 

Lines 480-590 — This is a routine used to allow input 

without falling out of the program if just the RETURN key 

is hit. 

Lines 600-640 — This subroutine prints out the monthly 

amounts to the screen. 

Line 650 — A subroutine used to print the month and 

associated amount. 

Lines 670-710 — This routine is used to question whether 

a change in the list is desired. 

Lines 720-770 — This is a subroutine that is used to 

update the data. 

Lines 58000-59090— This is the SAVE routine written by 



Howard Bicking. It adjusts pointers and creates program 
lines necessary to save variables and array data along with 
the program. Note that lines 58130 and 59010 through 
59030 change dynamically within the program. 

Initial Save 

Once the program has been typed into the VIC and 
modified to individual needs, type RUN5. This will set up 
the arrays. After entering the data and going through the 
dynamic SAVE subroutine, save the program in the nor- 
mal manner. Next time it is loaded, it may be run using 
a normal RUN command. 

An Eye Toward Expansion 

Although this program will run on an unexpanded 
VIC, the user may want to add more categories such as 
taxes, insurance, etc. Or, he may have more charge cards 
or additional utilities. To do this requires more memory. 

The program is easily expanded to provide this capability. 
In the DIM statement on line 5, array "Q" is coded as: 

Q(category, maximum number of entries, months) 

In the listing shown, there are three categories; 
CHARGES, GASOLINE, and UTILITIES. There are also 
three entries under each category. Therefore we have 
Q(2,2,12). Note that the zero element of the array is used 
in the first two numbers. This is not so for the number 
of months, however. 

Similarly, array "A" and "AS" are coded with the cate- 
gory number and the entry number. 

Line 20 mirrors the first two numbers in the "Q" array. 

The additional names of categories and entries are 
defined in a manner similar to those found in lines 30 
through 60. 

That is all there is to it unless there are over ten cate- 
gories. It would then be necessary to dimension arrays 
"BL" and "C" as found in line 760. 

Of course with additional memory comes additional 
waiting time involved for saving and loading the program. 
The day is saved again by Eastern House Software. They 
have a "Rabbit ROM" for the VIC to speed things up 
considerably. q 



VIC Dynamic Bookkeeping 



@ GOSUB53010-GOTD10 

5 BIMQC2,2;12),M$a2),fK2,2),R$(2,2:> 

10 PRINT" ^BOOKKEEPING PROGRAM" :F0RH=1T079@: NEXT 

20 02 = N=2 

30 BL$(0) = "CHRRGES" :BLl:n>="GflS0LINE" ■BU | .:2) = "UTTL!TTES" 
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user departments: 



VIC 20 



40 R$<0j 0)="GIMBELS" :fl*(0j 1>="PENNEVS" :fl$<0j 2>="SERRS" 

58 R*a. 1 0)="CRSH":R$(J,,l) = "Ri'iOi;:ri" :R$a,.2)="RRC0" 

60 R*<2, 0)= "BELL" •' fl*<2> 1 )= " ORS " : R* < 2 , 2 > = " PECO " 

70 MS C 1 )=" JRN " = M$(2> SS "FEB" : M#< 3 ) = " MRR B : M$ <4>*"ftFR" : M*<5)-" MR V " : M* ( 6 > = " JUN " 

30 M*<7)="JUL" : M*<8>= H RUG" : M$<9>="SEP ! ' :fl*<i0)s"OCT" :M$<1 1 > = "WQV" :M*<12>="DEC" 

9S Zl*=" RECORD RLL DRTR2WN) " : Z*="CHRNOE THE LIST?<SVN)" 

100 PRINT H nBILLING LIST":PRINT" " 

110 F0RI=8T0C : PRINTI + lBL*a>; " <" ;BL(I) .; ")" :NEKT:PRINTC+2"END PROGRRM" :T=C+2 

129 GOSUB340:F=R-1:IE R=C+2THEN338 

136 F=R-1:IF R*=C+2THEN 339 

140 QOSUB 660 

158 FORI=0TQN 

1S0 IFR*<F J D=""THEN180 

170 PRINTI+lR*CF,D; w (";R<F,D;"> n :NEXT 

180 PRINTI+1 "BILLING LIST 

190 T=I+1 

2O0 0OSUB340:IFR*I+1THEN100 

210 I«R~l:PRINT , 'r3 H Rf<F < I);"C";fl(F.I);")":PRINT" " : GOSUB680 : GOSUB670 

220 IF F1O0THENF1=8' GOTO 140 

230 GOSUB480 ; Q(F. I , r)=v+q,;f, I ., P) 

240 RCFj 1 >=0 : GOSUB720 : R(F, I >=>< 

258 BL(F>=0:FGRK=0TO T-2 

263 BL(F>=BL<F)- t R(F, K):NEXTK 

278 GOSUBS50 

2S8 PRINT" W"Z1* 

298 GOSUB400 

300 IFR*="N"THENGOTO140 

318 GOTO58000 

320 GOTO 148 

330 GOTO53Q00 

340 PRINT"XWHRT WOULD VOU LIKE TO PEE? INPUT 1 TO*';T 

350 GETR*"IFfl$=""THEN350 

368 R=VRL<fi*) 

370 IFR<1ORR>TTHEN350 

330 RETURN 

ggg pfTfvt 

430 GETflf : I FRf= " "THEN400 

4 1 8 I FRtO " V " THEN I FR*0 " N " THEN400 

420 RETURN 

^38 PRINT"STVPE M0NTH<1-12)" ' PRINT"THEN HIT RETURN KEV 

440 GOSUB490 

450 R=V 

468 I FR< 1 ORR> 1 2THEN440 

478 RETURN 

438 PRINT'SINPUT RMOUNT. THEN HIT RETURN KEV 



a 
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490 RR*="" 
500 OPEN 1,0 

510 GET#1,R* 

529 IF R$OCHR*<20)THEN550 

530 IFLENCRfl$)-l <0THEN51@ 

540 fln*=LEFT*<:fiflt,<LENCflR$)-l)>:PRINT ,l |l II" ; SGOTOSIQ 

550 PRINTR$; 

560 Rfi*=fifl$+fl$ 

570 IFfl*OCHR*<13)THEN513 

530 V=VRURR*> 

590 CLOSE1 : RETURN 

600 F0RJ=1T09 

610 PRINT J; " "Mt<J> .:"..."; TRE<9> ; GKF, I , J) : NEXT 

615 FORJ=10TO12 

628 PRINTJJ «*< J) ; "..."; TRB<9> ; CKF, I , J) * NEXT 

640 RETURN 

650 PRINTM*<R) ;"..." j QCF, I , R> : RETURN 

66Q PR I NT" 3(" ; BL$ ( F ) ; " < " J EL (F ) ; " ) " : RETURN 

670 PRINT"M"Z* 

680 GOSUB400 

690 IFfl*="H"THEN Fl=-1 = RETURN 

700 GOSUB430 

710 GOSUB650: RETURN 

720 X=0 

730 F0RJ=1T012 

740 X=X+Q ( F .. I , J ) : NEXTJ : RETURN 

750 FORK=0TO T-2 

760 BUF)=BL<F)+CCK):NEXTK 

770 RETURN 

5:5000 REM-SRVE PROGRAM BV HOWARD BICKING 

53010 PRINT"aS»":F0RI=2T06 STEP2 

58020 N4=I*5 : OOSUE53190 : N5*=N4* 

53030 N4=PEEKC43+I ) : GQSUE53190 : N6*=N4* ■ N4=PEEK<44+I) : GGSUB38190 

53050 PRIHT"59"+N5$" PQKE"43+I"j "N6$" : P0KE"44+I", "N4$:NEXT 

5S060 PRINT"53130 P0KE45, "N6$" :P0KE46< "N4$"'ENB 

53030 PR I NT "GOTO 53110 

58090 POKE 193.. 5 ■ FORI=0TO7 ■ P0KE631+Ij 13 : NEXT : PRINT"3" =ENB 

58110 PRINT :PRINT"3aS}SBIItilOK TO SAVE PROGRRM 

53130 P0KE45.. 017 : P0KE46,, 051 : END 

53190 N4$=RIGHT$("00"+RIGHT*<STR*<N4) ,IEN<STR*CN4>>-1) ■ 3) : RETURN 

53200 GOSUB 59010: END 

59010 POKE <*2 ,244: POKE 43 ,941 

59920 POKE 44 ,100: POKE 45 ,042 

59030 POKE 46 ,017: POKE 47 ., ©51 

59030 RETURN 



Li 
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Unclutter 
Your Desk! 

Put your Commodore computer 
in a desk of its own. 

Sure it will look great, 

and the desk is small enough 

to fit almost anywhere. 

But the real benefits are 
your personal comfort 
and efficiency. 



The Pearr Desfc Systems 
Bo, 323 

Bcrrion Springs, Ml 49103 
616. 473-3S57 



DESK SYSTEMS 



VIC 20™ and CBM 64 ™ 
EXPANDER BOARDS 




6-SLOT *%^ ; 
Toggles 
fuse and reset 
P/N V-36 
"69.95 

6-SLOT wi!h 
3-fl nbbon cable 
P/N V-46 
'S9.95 



3-SLOT 

Slide switches 
and fuse 
P/N V-23 
'49.95 



4-SL0T 

Toggles, fuse 
and reset 
P/N V-24 
■59.95 



4-SLOT 

Buflered fdr 
universal com- 
patibility 
Toggles, fuse 
and reset 

'69.85 



rn?71 VIC 20" MEMORY 

A multipurpose board with sockets for three BK 
blocks ol static RAM or EPROM 



Expands VIC 20 
memory to 29K 
when equipped 
wilh 24K SAM 

System reset button 

Control switches for 
8K memory blocks 

6116 RAM or 2716 EPRC 
90-day warranty 




Gold connector 

Sockets for all ICs 

Sold with 8. 16 
or 24K RAM 

P/N VME-1 

with. BK RAM '79.95 

with 16K RAM >99.95 

wilh 24K RAM '119.95 

shown without cover 



MONITOR/AUDIO CABLE 

Connects VIC 20 or CBM 64 to audio amplifier and TV monitor 

Color 64 or VIC P/N MC-2 '12.95 
B & W 64 only P/N MC-3 '12.95 

See your dealer or place 
your order direcily 

VISA - M/C - CHECK - COO 

radernark ot Commodore Electronics Limited 



PRECISION TECHNOLOGV. INC. 
COMPUTER PRODUCTS DIVISION 



Sf.LT LAKE CITY. UTAH 841 15 
(SOI) 487-6266 



-'.'- 



user departments: 



Commodore 64 



Detecting 
Function Keys 

on the Commodore 64 



The function keys on the Commodore 64 are a set of 
four spare keys located down the right hand side of the 
keyboard. When using a basic program it is often desirable 
to display a message such as: 

"Press Fl to continue" 

The Commodore 64 makes it possible to detect these keys 
because each one has a CHR$ code assigned to it. These 
codes range from 133 to 140 for keys Fl through to F8. A 
simple way to wait for the Fl key to be pressed is as follows: 
100 GET AS: IF A?OCHR$ ( 133 ) THEN 100 

However, if you do not want to use CHR$ every time 
you want to check for a function key, then you can use the 
following method. If you type a single quote and then press 
each of the function keys in turn, you will see a series of 
reversed video graphics appear. We can use this property of 
the function keys to make the test loop a little easier to key 
in, as follows: 

100 GET A$: IF A$<>" [Fl]" THEN 100 

Please note that the 'Fl' in square brackets means press 
that key, not type it as shown; you should have a solid square 
with a line through the top of it between the quotes. 

Another way of testing for the function keys (and any 
other keys for that matter) is to PEEK memory location 
197 which contains a special code that tells the computer 
which row and column the key being pressed is on. This 
location contains 64 when no keys are depressed and a 
different number if a key is held down. We can use this 
facility to monitor the function keys all of the time and 
even wait for a key to be released before continuing with 
the rest of the program. The following codes are put into 
location 197 when each of the function keys are pressed: 

Fl = 4 
F2 = 5 
F3 = 6 
F4 = 3 

For example: 

10 IF PEEK(197)<>4 THEN 10: REM 

WAIT FOR Fl 
20 IF PEEK{197)<>64 THEN 20:REM 
WAIT FOR RELEASE 
will wait for the Fl key to be pressed and then released 
before continuing with the rest of the program. C 

— Courtesy of Commodore (U.K.) 

" '■ 
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User-Defined Function Keys 



The BASIC program following will allow you to define 
the function keys so they print anything you like up to 
eight characters long. Lines 200-330 POKE the machine 
code into $C000 onwards. If the program stops at line 320 
and prints the error message, then you have made a mis- 



take in typing the data and should go through again and 
check it very carefully. If the data is POKEd in successfully 
then you will be able to use the function keys as if each 
one were a single key with a word on it. c 

— Courtesy Commodore (U.K.) 





1 
2 
3 

4 
5 
6 
7 

8 

9 

10 

20 

30 

40 

50 

60 

200 

210 

220 

230 

240 

250 

260 

270 

280 

300 

310 

320 

330 



KEY DEFINE 



BY S BEATS 
:REM POKE IN DATA 

YOU CAN CHANGE 
DEFINITIONS IF 
BUT REMEMBER IT 
MAXIMUM PER KEY 



;REM 
.REM 
:REM 
:REM 



THESE 
YOU WANT 
IS 8 CHARACTERS 



ENABLE CODE 
START OF DATA 

POKE IN KEY DEFINITIONS 



REM FUNCTION 
GOSUB 300 

FS (1) = "LIST"+CHR$ (13) 
F$ (2)="RUN"+CHR$ (13) 
FS (3)="GOSUB" 
F$(4)="SAVE"+CHR$ (34) 
F$ (5)="LOAD" 
F$ (6)="GOTO" 
F$(7)="CHR$ (" 
FS (8) ="RETURN" 
SYSl2*4096+64 : REM 

V=12*4096-l :REM 

F0RI=1T08:K=I-1:V1=V+K*8 
FORJ=1TOLEN (F$ (I) ) : REM 
POKE V1+J,ASC (MID$ (F$ (I) , J,l) ) 
NEXT: NEXT: END 
DATA 120,169,87,141,20,3,169,19 2,141,21 
DATA 3,88,162,63,169,0,157,0,192,202 
DATA 16,25 0,96,16 5,197,201,64,20 8,6,141 
DATA 151,192,76,148,19 2,2 5,151,192,240,44 
DATA 141,151,19 2,16 2,3,221,152,19 2,24 0,5 
DATA 2 2,16,248,48,29,138,174,141,2,240 
DATA 3,24,105,4,10,10,10,168,16 2,0 
DATA 185,0,192,157,119,2,20 0,232,224,8 
DATA 208,244,134,198,76,49,234,64,4, 5,6,3,0 
FORI=0TO92:READA:Z=Z+A 
POKEl2*40 9 6+6 4+I , A: NEXT 

IF ZO10771 THENPRINT"ERROR IN DATA STATEMENTS" ;STOP 
RETURN 



|L 
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user departments: 



Commodore 64 



Commodore 64 Screen Dump 



(Updated from the 1525 Printer Manual) 



This program will allow you to dump the Commodore 64 screen to your 1525 printer. 



1 GOSUB100 290 

2 END 

100 SI**CHR*(15J:BS$-CHR*<8):P0*«CHR 210 

$<16) 

110 RVf=CHR*<lS:J : R0t=CHR$<146) : QTf= 220 

CHR$<34> om 

120 MF$=CHR$a45) ; VR=PEEK(G48)*256 248 

130 0PEN4i4:PRINT#4 

140 FORCL =0TO24 : QF=0 : RS$=MF$ : FORRO* 250 

0TO39 268 

150 SC=PEEK(VR+40*CL+RO) 270 

160 1FSC=34THENQF=1-QF 230 

170 IFSCO162THEN200 

130 QF=lH2F:IFQF=lTHENfiS*=flS*+RV*+QT* 290 

■ QOTO260 300 

190 flS*=fiS*+QT*+RO* = GOTO220 



IFQF=lANB<SC>i23)THEHSC=Sf>123: 

QOTO220 

I FSC>= 128THENSOSC- 1 23 : RF= '. : RS*= 

flS$+RV* 

IFSC<320RSC>95THENfiS=3C+64 : GOTO250 

IFSC>31RHD3C<64THENRS=SC : GOTO250 

I FSC>63RNDSC<96THENflS=SC+32 : 

GOTG250 

RS$=flS$+CHR*CRS) 

IFRF=1THENRS$=RS*+RV* : RF=0 

NEKTRQ 

I FQF=8THENPR I NT#4 , S I *P0* " 28 " RS$ : 

OOTO308 

PRIHT#4.. SI$+P0S+"28"+RS*+QT' 

NEXTCL : PRINT#4i SI* ■ CLOSE4 : RETURN 




TOTL.TEXT2.0 + CS VIC + 8K expansion S25.00 

TOTL.TEXT 2.5 + CS VIC + 16K expansion $35.00 

TOTLTEXT2.6 + CS Commodore 64 $40.00 

TOTL LABEL 2.1 +CS VIC + 16K expansion $20.00 

TOTL.LABEL 2.6 + CS Commodore 64 $20.00 

TOTL TIME MANAGER 2.1 VIC + 8K expansion $30.00 
TOTL TIME MANAGER 2.6 Commodore 64 $35.00 

time management, scheduling, reports 
RESEARCH ASSISTANT 2.0 VIC+8K expansion $30.00 
RESEARCH ASSISTANT 2.0 Commodore 64 $35.00 

key word cross-reference research tool 
TOTL. BUSINESS 3.0 VIC + 16K expansion $85.00 

TOTL. BUSINESS 3.6 Commodore 64 $95.00 

business programs require disk and are shipped on disk 
One Megabyte Fuzzy Diskette $25.00 

computer novelty pillow 



TL/TL 



Commodore 64 and VIC 20 are 



ft 

J$) software inc. 

^rfl555 Third Ave., Walnut Creek, CA 94596 
.O--^ ^^ ^^ Call (415) 943-7677 

registered trademarks of Commodore Electronics, Ltd. 



ji 



It's Time for 
TOTL SOFTWARE! 

for the VIC 20™ and COMMODORE 64™ 

WORD PROCESSING AND MAILING LIST & LABEL 

now available with ^ J '» I 'f> <mw '^yjnfp T 'W\ 

FAST PRINTING • LIGHTNING LOADS • SIMPLE COMMANDS 

All programs work with 40/80 column (VIC) and 80 
column (64) adapters — compatible with tape or disk 
systems — shipped on cassette tape — available 
on disk $4.00 extra. 

Quality You Can Afford 

Available at your local dealer 
or by phone order 
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Program, Save Yourself 



by Bruce Jaeger 



A nifty utility for the Commodore 64 



Common sense tells us that we 
should make copies of our programs 
as we work on them, to prevent los- 
ing hours of work due to an accidental 
"crash" or the kids pulling the plug to 
make Daddy laugh. (He doesn't.) But it 
is a bit tiresome to keep scratching the 
old program on the disk and SAVEing 
the new. Especially when the computer 



will do it for you! 

Load UTIL1TYPRG before you begin 
programming, and leave it attached to 
your program until you're finished and 
don't need it anymore. When called by 
either RUN 63000 or GOTO 63000, the 
program will give you the time of day, 
and the choice of SAVEing the pro- 
gram, or LISTing all or part of it, sav- 



ing you all the bother of opening and 
closing files. 

The only "customizing" you need 
do is change PG$ in line 63000 to the 
name of your program. C 



63900 

63010 

63020 

63030 

63040 

63650 

63060 

63070 

63030 

63090 

63100 

63110 

63120 

63130 

63140 

63150 

63160 

63170 

63180 

63190 

63200 

63210 

63220 

63230 

63240 

63250 

63260 

63270 

63230 

6329S 



|L 



•3" 



:'-< 



CONTROL CODE KEY 






= CLEAR 

= HOME CURSOR 



T = CUR 



II" 
H" 

a" 



= CUR 

= CUR 
= CUR 



OR UP 
OR DOWN 
OR LEFT 

OR RIGHT 



= REVERSE 

= REVERSE OFF 



PO*="UTILITVPRG" : E$=CHR$ (1 ) = PRIN 

PRINT"!* 3".;PG$ 

GO3UB63290 : PR I NT "M" ; H$; " : " i m ) " '■ " ;RIGHT$<TI* 

PRINT"SIS3SiCRRTCK OLE PROGRAM; SAVE HEW," 

PRINT"JMSL5I3T PROGRAM ON CBM PRINTER" 

PRINT ,, XWSn"lIf1E OF DRV CHANGE" 

PRINT"MflSFSUN PROGRAM" 

PRINT"jS8ffiJBELECT OPTIONS" 

GETS*: IF3£=""THEN63020 

IFS**"T"THEN63150 

IFSfO "R " PHD SIO "T"ANDS$0 " S " RNBSfO " L " THENPRINT "3" : EHP 

IFS*="L"THENIHPUT"S!TT0riR , r"3 DATE 00/00/83imm*5i?" . : T !DS : OOT0631S0 

IFS*="R"THENRUN 

IFS* sW S l 'THENtNPUT H BDff 5 ROGRfiM ON DRIVE 0SI1E" ; DR* : BR$=BR*+" : " : GOTO63170 

PR I NT "T= END 

PRINT"J3SET THE TIME: HRMNSC" 

I NPUT " 000000HUIIIlt" : T I $■ ■ GOTO63000 

CLOSE 1 : 0PEN1 i 3j 15 : PRINT#i , "S"+BR$+PG$ : SftVEDR*+PG$j S : GOTO63000 

0PEN4 , 4 : PRINT#4 > E* ; E* ; PQ$ ■ PR I NT#4 

PR I NT#4 , Ef ; " VERS I ON PS OP " .; TP* ; " " ; : G0SUB63290 : PR I NT#4 . H* : " : ' 

INPUT"M"lflNT PAGING MI91I" : WP* = IFWPfO "N"THENPR1NT#4; CHR*( 147) 

INPUT" KURNT SRH_L OF THE PROGRAM.. OR ?PWR7 RIBi!" .; PR* 

IFRP£="R" T HENL=0 : H=62399 ' GO T Q6^250 

INPUT'SFROM LINE # 0II1I";L 

INPUT"S TO LINE # 6299911111111" ; H 

PR I NT "."PRESS (RETURNS TO LIS'" 

PR I NT ''S0SKWWKCMB4 : L I ST " ; L ; " - " ; H 

PRINT''SWiffli89)fflIPRINT#4 : CL0SE4 : GQTO63000" 

PR I NT "SUSS" : END 

HfaLEFTtCTItj 2? : WMnH$i719, 2, 2) : H*=STR$(VAL<H$) ) ■ RETURN 



m 



J 
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user departments: 



PET/CBM 



Machine Language Monitor 
in the Upgrade PET 



by Elizabeth Deal 



The machine language monitor (MLM) in the PET is, to 
me, one of the most valuable hunks of code. Often things 
are easier to do using the monitor instead of BASIC com- 
mands. For instance, it is simple to type ".M 0028 0029" 
to see where BASIC begins. Typing PRINT PEEK(40), 
PEEK(41) or, worse, PEEK (40)+256*PEEK(41), as you 
must in BASIC, is a pain. There are many other monitor 
commands that also help simplify life, and the monitor 
provides security in the event BASIC has been damaged. 
But there are small troubles in the upgrade version of 
the PET. However, if we know how to handle them we 
shouldn't have any problem. 



The LOAD (.L) Command 

Problem 1: In the February, 1983, issue of this maga- 
zine I asked if anyone knows why only one byte of a file 
loads into the upgrade PET when a machine language 
monitor ".L" command is used. 

I do. Here is the answer: It doesn't always happen. 
It happens when ST is set to a non-zero value and is 
not cleared. 

Incidentally, a very reliable source tells me that the 
Commodore 64 version of the Supermon, which includes 
all the monitor commands, does not suffer from these 
problems. It was written by Jim Butterfield and is in 
COMPUTE! issue 32, January, 1983. 

A bit more detail: There is a lengthy routine in ROM, 
at SF3C2, for LOADing programs into the PET via BASIC. 
The system vector is at SFFD5. One of the first things 
this routine does is examine and use the file name, device 
number, and so on. It then clears the ST byte (file status 
word) to zero. This code is at SF43E. A separate subroutine 
($F322) is called to move the program bytes from disk into 
memory. It puts them in, verifies, and counts. On exit, the 
start of the variables pointer is changed to reflect the new 
program end, a CLR is performed, and you're ready to go. 

The .L command in the MLM sets the file parameters 
and then uses only the loading subroutine at SF322. It 
does not change BASIC pointers, of course. And it unfor- 
tunately fails to clear ST prior to loading. Hence, if you 
came inwithST=64, it so remains. PET thinks the job is 
done after one byte, and blinks the cursor at you. The illu- 
sion of a completed load can be disastrous when you try to 
use the code, since the code isn't there. 

Several procedures leave ST=64 on. One of those, 
unfortunately, is the input of the error status in the disk 



(a wedge command, > "greater than", or the whole IN- 
PUT#15,E1, etc., version). At the completion of the sta- 
tus report, ST is set to 64. Another procedure that leaves 
ST=64 on is a successful .L load. But if you enter the 
monitor with no intervening ST clearing commands, 
you'll get zapped. 

Several procedures leave ST=64 on. One of those, 
unfortunately, is the input of the error status in the disk 
(a wedge command, > , or the whole INPUT# 15.E1, 
etc., version). At the completion of the status report, 
ST is set to 64. Another procedure that leaves ST=64 
on is a successful .L load. But if you enter the monitor 
with no intervening ST clearing commands, you'll 
get zapped. 

The cure is to clear ST yourself. Prior to entering the 
machine language monitor it can be cleared by POKE150,0. 
You can then enter the MLM and .L-Ioad. From within the 
MLM setting $0096 to 00 does the trick, of course. And 
LOADing files from within a running BASIC program also 
is not disturbed by a bad ST, as that routine goes through 
the whole necessary procedure. 

Problem 2: If a file to be loaded is not on the floppy a 
STOP key has to be used. That's fine in BASIC (most of the 
time), but could be bad in the MLM since that particular 
STOP-test routine exits to BASIC. Should BASIC be clob- 
bered so a file is not on disk, use of the STOP key dispatches 
you right out of the safe monitor into the hostile world of 
nonexistent BASIC. Ouch! So, if you think BASIC is in 
trouble, be careful what you try to load. 

The Executive Code (.G) Command 

If you have ever wondered why after saving or loading 
(,S or ,L) a file you crash on a subsequent .G command, 
the reason is that the file name and the temporary storage 
for the IRQ vector ($0207) share memory. So you do a .G, 
and when the job is done, the PET tries to stuff two bytes 
of your file name into its IRQ vector (normal housekeep- 
ing), with rather unpleasant results. You may uncrash, of 
course, using the Butterfield procedure, but if the silly 
new IRQ code damaged BASIC or the machine language 
program, you're in serious trouble. 

The remedy is very simple: ask for register display and 
change the value under IRQ to E62E or whatever you think 
should be there. You can then use the .G command safely. 

If you wish to snoop, the monitor's ,G command is at 



li 



104 COMMODORE: THE MICROCOMPUTER MAGAZINE June/July 1983 



$FECF; the SAVE and LOAD commands are at $FF1L 

Three Big Solutions 

1. Micromon solves some problems and it includes 
DOS-wedge commands. But Micromon is big, not easily 
relocatable, sometimes conflicts with IRQ, and uses a lot 
of memory in the first tape buffer. 

2. The POWER chip, available from Professional Soft- 
ware, solves the .L and .G problems by permitting you to 
LOAD programs from BASIC. You use FIX or POWAID's 
PTRFIX to take care of BASIC pointers. When you have 
POWER there is little reason to ever use the .L com- 
mand anyway. 

3. BASIC 4 apparently does not suffer from any of these 
troubles; if you can afford to obsolete some of your favorite 



chips and programs (not me!), switch over. 

I thank Jim Butterfield for a bit of guidance in answer- 
ing some of those questions. C 



J 



New Commodore 64" Games! 

An introductory offer from 

RovRNceo ftocmewme 

ATOMIC 
MAN 



HEAD ON 

A daring and 
dangerous 
death race. 

ALIEN 
INVASION 

4 players. 
Creatures 
descend. 




Super hero 
rescues a city. 



SERPENTS 

2 players. 
Snakes 
entangle 
each other, 



4 game pack suggested list price $59,95 

NOW $29" 

To order: Mail address along with check or money order to: 

RDVRNC€D RRCRD€WR€ 
P.O. Box 845 
Thomasville, NC 27360 
(919)431-3231 

Specify Disk-Pack or Cassette Pack 

Add S2.00 for shipping Allow 2 weeks for delivery 




An Arcade 

Simulation 

for the 

Commodore 64 

your mission 

is to destroy 

the enemy ships 



For the Commodore 64: 



ABC Fun Part of a series of ed- 
ucational programs for pre- 
school aged children. 59.95 
File Organiier Creates Data 
Base storage system. Useful for 
mailing lists, club rosters, check 
books, etc $89.95 
Sprite Editor The easy way to 
create, copy, alter, and save up 
to 224 sprite shapes. S24.95 
Spread Sheet Powerful calcu- 
lation and report formatting 
capabilities. Memory divided 
into grid: 26 rows by 10 col- 
umns S34.95 

Disassembler Familiar with 
6502 assembly code? This will 
decode ROM or help debug 
RAM. S19.95 

Super Roller Challenging dice 
game with sprite graphics and 
sound Vahtzee-style rules of 
play S14.95 



$19.95 



Cross Reference Generator for 
BASIC programs Displays line 
numbers in which any word of 
BASIC vocabulary appears. 
Allows you to change variable 
name and ask for lines where it 
appears, and more. SI 9.95 

For the VIC-20:™ 

Caves of Windsor A cave ad- 
venture game. The object is to 
restore wealth and happiness 
to the small village of Windsor. 
514 95 

Burger & Fries Fast action joy- 
stick game. Eat the burgers and 
fries but avoid the shakes for a 
top score. 514.95 

Catalog available 
Dealer inquiries invited 

PHONE ORDERS; (703) 491-6502 
HOURS: 10 a.m. to 4 p.m. Moil.— Sat. 

Virginia Micro Systems 
13646 Jeff Davis Hwy 
Woodbridge, va 2219t 



39 
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The Beep Wedge for the PET 



by Elizabeth Deal 



Computers you see on TV make all sorts of blip-beep- 
blap noises as they process very important information. 
Real computers don't seem to do this sort of thing. To rem- 
edy the situation here is a noise-maker for PET or CBM 
computers, all versions except original ROMs. The beep 
idea comes from Keith Falkner's tutorial article about the 
Apple computer in issue 32 of COMPUTE! 

As each and every character in a program or a direct 
command is interpreted by the PET, my routine causes 
the system to detour to a CB2-sound routine prior to acting 
on a character. The process is identical to that of the well 
known DOS-wedge, Toolkit, and POWER. However, for the 
sake of brevity and education a primitive manual hookup 
method is shown here. 

The pitch of the sound is inversely proportional to the 
character or keyword token the PET sees. Some low values 
are inaudible or produce a high squeaky pitch, but the 
short duration of the beeps prevents you from going crazy. 

The detour takes a bit of time; PET will process every- 
thing in sight, but very slowly. Once enabled, the routine 
can be tried during a program run. (Pick a program with 
few loops, as they are boring.) It can also be tried on direct 
commands, such as: 
LIST 

LIST1-63999 

PRINT'SILENCE. CHRGET DOES NOT LOOK HERE" 
PRINT some very long expression; the more things to do 
the merrier it gets. 

To begin this foolishness you have to hook it up. Enter 
the machine language monitor using SYS4 and follow the 
listing in lines 105-117. Don't bother saving if your typing 
is good. As you ask for a display of locations $0070+ write 



down the contents of the first three bytes. We'll change them 
for making sound. To fix the PET you'll need to reset or 
put them back in later. I told you it was a primitive hookup! 

You do not really have to put this code at $4000 (16384 
decimal). It is relocatable and can be placed anyplace you 
like, but you mustn't forget to tell locations $0071-72 
where the code is (rightmost two digits of the address go 
first, then the leftmost digits into $72). Just follow the 
pattern you see on the screen. Needless to say, unless pro- 
tected by setting the top-of-memory pointer (POKE a zero 
into 48 and 52, POKE 64 into 49 and 53), this code will 
vanish on long LOADs or large arrays, and you'll have a 
mess. But for minor testing, being in the middle of a 32K 
PET it's rather immune from disaster. 

You can change the timing of the notes by changing 
the hold time at location S401C. Replacing $10 with $50 
sounds good; $04 there is OK for working the disk, which 
is usually in a boring loop. Do you own thing. 

What we have just done is a tiny little building block for 
adding commands to BASIC or tracing a running program. 
We got a character and used its value to beep at a certain 
pitch; that's all. Had this been a DOS-wedge program, the 
character might have been an up-arrow, in which case 
a routine to LOAD a program would have been invoked, 
for instance. 

Once again: what is missing is an elegant hookup. Start 
and kill-type commands are just not there. Coexistence 
with other utilities is not there. These features are harder 
to write, but are, of course, essential. For more on this 
subject snoop in the DOS-Wedge or your favorite utility 
viatheSUPERMON. C 



1 REM"S=SA"@l:SNDTR.LIST" f 8 

2 : 

3 : SOUND TRACE ELIZABETH DEAL 

4 : 



100 
101 

102 
103 
104 
105 



SYS4 



:B* 



PC IRQ SR AC XR YR SP 
.; 0005 9053 30 00 5E 04 F6 
.M 0070 0070 



il 
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:.: 0070 


4C 


00 


40 


02 


E6 7 8 AD 


02 




107 


: .M 4000 


402F 












108 




4000 


8A 


48 


98 


48 


AO 00 E6 


77 




109 




4008 


DO 


02 


E6 


78 


A9 10 8D 


4B 




110 




4010 


E8 


A9 


OF 


8D 


4A E8 Bl 


77 




111 




4018 


8D 


48 


E8 


A2 


10 AO 00 


88 




112 




: 4020 


DO 


FD 


C? 


DO 


F8 8E 4B 


E8 




113 




; 4028 


68 


A8 


68 


AA 


4C 76 00 


AA 




114 


: .S n 0i 


SOUNDTRACE" , 


08,4000,402F 


(DISK) 




115 




-- 


-OR 















116 


: . S"SOUNDTRACE" 


fOl 


.,4000, 402F (TAPE) 




117 


: .X 


















118 
119 
300 


: READY. 
















:REM DISSASSEMBLY 










301 


:4000 


8A 








TXA 




; HOUSEKEEPING 




302 


:4001 


48 








PHA 








303 


:4002 


98 








TYA 








304 


:4003 


48 








PHA 








305 


:4004 


A0 


00 






LDY 


#$00 






306 


:4006 


E6 


77 






INC 


$77 


;CHRGET PET CODE 




307 


:4008 


DO 


02 






BNE 


$400C 






308 


:400A 


E6 


78 






INC 


$78 






309 


:400C 


A9 


10 






LDA 


#$10 


;CB2 SOUND 




310 


:400E 


8D 


4B 


E8 




STA 


$E84B 






311 


:4011 


A9 


OF 






LDA 


#$0F 






312 


:4013 


8D 


4A 


E8 




STA 


$E84A 






313 


:4016 


Bl 


77 






LDA 


($77) ,Y 






314 


:4018 


8D 


48 


E8 




STA 


$E848 






315 


:401B 


A2 


10 






LDX 


#$10 


;HOLD IT 




316 


:401D 


AO 


00 






LDY 


#$00 






317 


:401F 


88 








DEY 








318 


:4020 


DO 


FD 






BNE 


$401F 






319 


:4022 


CA 








DEX 








320 


:4023 


DO 


F8 






BNE 


$401D 






321 


:4025 


8E 


48 


EB 




STX 


$E84B 


;STOP IT 




322 


:4028 


68 








PLA 




HOUSEKEEPING 




323 


:4029 


A8 








TAY 








324 


:402A 


68 








PLA 








325 


:402B 


AA 








TAX 








326 


:402C 


4C 


76 


00 




JMP 


$0076 


;GIVE PET A CHANCE 




327 




















Lhr- 


















'I 
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Where Are We? 



by Elizabeth Deal 



It is often desirable to know where 
BASIC or machine code is executing 
and this article will cover several ways 
of getting that information. It was de- 
veloped on an Upgrade PET, should 
work on all PETs and might be trans- 
ferable to other 6502 systems. 

Why? 

There are several reasons that we 
might wish to know where we are. 
The most obvious reason is for self- 
modifying programs. Usually this type 
of program POKEs data into a second 
or last line of BASIC, since those can 
easily be found. The method shown here 
will allow us to do that horrible activ- 
ity anyplace. Another reason might be 
to reset a READ pointer to a particular 
group of items. Still another, simply 
to be able to look at the code via the 
monitor display. 

In machine code I often find that I 
have an almost relocate-able program 
were it not for several bytes of data or 
one subroutine. In such cases a BASIC 
or machine code relocator is of value, 
but it often ends up being much longer 
than the tiny code I write, so the whole 
effort becomes silly. 

There are many other reasons; these 
are just examples of what we might need. 

BASIC Programs 

Two pointers are quite useful. The 
"get the next BASIC character" pointer 
in the CHRGET routine ($77/78, dec 
119/120) is live at all times and can be 
successfully used in machine code in- 
serts into a BASIC program. For testing 
purposes, if we say SYS634, and in the 
first buffer at $027A we place a zero 
(BRK) then we'll see that this pointer 
points to the next character after the 
SYS call, namely a comma (in this case; 



1 1. 



it might well be a colon or an end-of- 
line zero). Subsequent JSR CHRGET 
places this character in the A-register 
and we can go on from there. People 
using BASIC 4 should be aware that 
BRK causes this pointer to be reset back 
to the start of BASIC text. Therefore 
they will have to arrange to save it be- 
fore doing a break. (POWER users are 
familiar with this trick; it is used in the 
"SYS TRACE, parameters" command.) 

The CHRGET pointer can answer 
the question "where are we?" very pre- 
cisely. In my opinion, it should not be 
used in BASIC-only programs. The very 
action of interrogation modifies the 
pointer: if the inquiry crosses a page 
boundary, the returned value will be 
off by almost a page. 

Another good pointer to know 
about is the pointer to the next state- 
ment to be executed after CONTinue. 
As the name implies, if the program is 
STOPped this pointer will contain a 
valid re-entry address. The address will 
be that of the next colon or end-of-line 
zero, hereafter referred to as "zero". 

When STOP is not issued, the value 
of this pointer is invariant during state- 
ment execution. It points to the preced- 
ing terminator (colon or zero) until the 
next terminator is encountered. 

So how do we find out where we 
are? Keeping in mind that the pointer 
does not change until a terminator and 
that it points to the beginning of the 
currently executing statement (zero or 
colon), this line will tell the location of 
the zero preceding line 250: 

250 x=peek(58)+256*peek(59) 

and this line will tell us the location 
of the colon preceding the x=peek . . . 
statement: 

250 p=2:x=peek(58)+256*peek(59) 



A function may be used since this 
pointer does not track the function 
definition, hence: 

100 deffnpp(q) = peek(q)+256* 
peek(q + l) 



250x=fnpp(58) 

returns a valid address. 

The only restriction in this method 
is that the inquiry needs to be packed 
into one command so as not to change 
the statement pointer and run the 
risk of a page crossing mishap; lines 
such as 

250 x=peek(58) :y=peek(59) or 

250 pokezl,peek(58) :pokez2,peek(59) 

return an absurd address if the high 
byte of the address changes on a line, 
which is when the colon has crossed a 
page. The bad address is exactly one 
page too high. 

Now that we know how to pick up 
the location of the current line we can 
go one step further and find a location 
of the next line, which opens the door 
to all sorts of fun. 

Having defined a function in line 
100, we can now code 

250x=fnpp(58) :y=fnpp(x+l)-l 
260 rem next line 

X gives us the address of a zero pre- 
ceding line 250. X+l and X+2 give us 
the pointer to line 260. X+3 and X+4 
give us the line number of 250 coded 
as low and high bytes. X+5 is the first 
position of BASIC text on line 250. 

Y delivers the address of the end of 
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line 250, which is the same as a zero 
preceding line 260. Y+l points to the 
chain for a line beyond 260, Y+5 is the 
address of the first character on line 
260, a token for REM. Y+3 and Y+4 
deliver the line number, 260. 

Now we can do something useful. 
If we modify the pointer to a DATA 
item, held in $3E/3F (dec 62/63) with a 
value of Xwe can access the DATA list 
in lines equal to or greater than 250. If 
Y is used, we'll access DATA items in 
lines 260 and higher. We will use three 
common functions, an overkill in this 
situation, but they do belong in a pro- 
gram such as this. The routine at the 
end of this article shows how to do it. 

When run, Q$ will receive "HERE" 
rather than "NOT HERE". Normally, 
had RESTORE been in force by virtue 
of RUN or CLR, "NOT HERE" would 
result. As you can see, the DATA pointer 
need not be set to a DATA line. It should 
be set to a terminator: a colon, zero 
or a comma in a DATA list. PET finds 
subsequent DATA items without our 
intervention. 

Being able to position the DATA 
pointer permits us to successfully use 
subroutines containing their own data 
without having to worry about DATA 
lines physically preceding the ones we 
want. We do not need to issue numer- 
ous READ statements to bypass the 
unwanted list. 

The same procedure can be used in 



self-modifying programs. We are no 
longer limited to destruction of good 
code from line 2 on, we can do it from 
any place we wish. But for the sake of 
preserving the code and our sanity we 
now have all the tools needed to test 
if the POKing destination exists and 
whether it contains sufficient room. 

Small Machine Code 
Programs 

If the program is entered by USR(v) 
then, of course, the address of the rou- 
tine is known. It is held in locations 
land 2. 

If the program is entered via a SYS 
address then A contains the high byte 
and Y contains the low byte of the ad- 
dress. Also locations $11/12 (dec 17/18) 
hold the call address until the next 
BASIC instruction, including calls 
to many BASIC ROM routines, 
clobbers it. 

If the program is not entered from 
BASIC then the stack can help us. 
Frank Covitz, of instrument synthesis 
fame, recommends doing a phony sub- 
routine call. Go HUNTing for $60, he 
says. (Also, see Frank's article on bit- 
mapped graphics in this issue.) 

The Supermon's HUNT command 
found a first in-ROM RTS instruction 
($60) in my upgrade PET at $C207. 
There is no shortage of RTS in ROM, 
any old $60 will do. Now the trick is 



to go there by JSR xxxx and on return 
examine the stack two bytes back. As 
you can see, the A and Y registers hold 
the address- 1. That's all there is to it. 

We can use it as an ultimate method 
in writing relocate-able code. The point 
is that once we know where we are, we 
can have the PET modify the absolute 
addresses by adding a known value 
which we obtained from the stack. 

Bear in mind that the method is 
good for small routines with only a few 
two-byte addresses internal to the pro- 
gram. The method is too tedious and 
practically useless in larger code. 

Anyone using the Instrument 
Synthesis Software Package from 
Micro Technology Unlimited is probably 
aware of the fact that the program 
honors user-written subroutines. Since 
the placement of such code depends 
on your configuration string, the song 
data and the command string, know- 
ing where you are is a good thing, 
because the three parameters can vary. 
And if we plan for such code to travel 
to other systems, we must observe 
MTU's policy of "must run on all 
6502-s". Writing completely relocate-able 
code is the only sensible way, PEEKing 
the stack helps in that process. 

References 

1. Butterfield, Memory Maps 

2. Butterfield, "Scanning the Stack", 
COMPUTE! #8 (Jan 81) C 



500 REM 

510 REM WHERE ARE WE ELIZABETH DEAL 

520 REM 

530 A1=58:A2=62 

540 DEFFNPP(Q) =PEEK(Q) +256* PEEK (Q+l) 

550 DEFFNHI (Q) =INT (Q/256) 

560 DEFFNLO(Q)=Q-256*FNHI (Q) 

570 DATA NOT HERE 

580 Y=FNPP(FNPP(Al)+l)-l:POKEA2,FNLO(Y) : POKEA2+1, FNHI (Y) 

590 REM>READ POINTER HAS NOW BEEN SET TO THIS LINE 

600 READQ$:PRINTQ$ 
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610 DATA HERE 




1103 


• r 


4087 


A8 


TAY 




620 POKEY+6,94-PEEK(Y+6) 


:REM NOW 


1104 


• t 


4088 


BD 00 01 


LDA 




LIST 






$0100, X 










630 REM 





1105 


• / 


408B 


00 


BRK 




640 : 




1106 


.R 












650 DISASSEMBLY - $C2D7 


CONTAINS 


1107 


: 


PC 


IRQ SR AC 


XR 


YR 


SP 


RTS 




1108 


• t 


4080 


9053 30 00 


5E 


04 


F8 


660 ($60) IN UPGRADE PET 




1109 


.G 












670 : 




1110 


B* 












1100 . , 4080 20 D7 C2 


JSR 


1111 


: 


PC 


IRQ SR AC 


XR 


YR 


SP 


$C2D7 




1112 


* i 


408C 


9053 30 40 


F8 


82 


F8 


1101 ., 4083 BA 


TSX 


1113 


.X 




— 




-- 




1102 . , 4084 BD FF 00 


LDA 


1114 


READY. 










$00FF,X 




1115 


REM- 























COMMODORE USERS 

Join the largest, active Commodore users group. 
Benefit from: 

— Access to hundreds of public domain 
programs on tape and disk for your 
Commodore 64™, VIC 20™ and PET®/CBM™. 

— Informative monthly club magazine 
THE TORPET. 

Send $1 .00 for Program & Information Catalogue. 

(Free with membership). 



Membership 
Fees for 
12 Months 



Canada — $20 Can. 
U.S.A. — $20 U.S. 
Overseas — $30 U.S. 



Toronto Pet Users Group Inc. 

Department "C" 

1912A Avenue Road, Suite 1 

Toronto, Ontario, Canada M5M 4A1 

* LET US KNOW WHICH MACHINE YOU USE * 

VIC 20, Commodore 64, CBM are trademarks of Commodore 
Electronics Ltd. PET is a registered trademark of Commodore 
Business Machines, Inc. 



Micro World Electronix Inc. 

6340 W. Mississippi Ave. 
Lakewood, Colorado 80226 
(303)934-1973 
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New VIC 20, CBM and PET Products 

COMMUNICATION BOARD 

All you do is turn on your VIC and it's 
ready to connect to a modem. Makes the 
VIC into adumb terminal. 
Model MW-300 S39.95 

V-DATA BASE CASSETTE 

Allows user to input mail lists, and mini 
inventories, store on disk or cassette, and 
recall and print. 
Model MW-301 S29.95 

VIC 20/CBM 64 PRINTER INTERFACE 

This unit will interface your VIC 20 or 
CBM 64 to standard parallel printers such as 
Epson, Centronics, Anadex, Paper Tigers, 
Okidata, and many others. 



Model MW-302 $119.95 

DIGITAL TO ANALOG CONVERTER OR 
8 CHANNEL ANALOG TO DIGITAL 
CONVERTER 

Allows your VIC or CBM to output analog 
signal or digitize up to 8 analog channels. 



Model 
Model 



MW-304p 
MW-304V 



PET 
VIC 



S1 39.95 
S1 29.95 



user groups 



User Group Listing 



ALABAMA 

Huntsville PET Users Club 

9002 Berdair Road 

Huntsville. AL 35802 

Contact: Hal Carey 

Meetings: every 2nd 

Thursday 

ALASKA 

COMPOOH-T 

c/o Box 118 

Old Harbor, AK 99643 

(9071 286-2213 

ARIZONA 

VIC Users Group 

26l2E.Covina 

Mesa, AZ 85203 

Contact: Paul Muffuletto 
Catalina Commodore Computer Club 
2012 AvenidaCuillermo 
Tucson, AZ 85710 

(602) 296-6766 

George Pope 

1st Tues. 7:30 p.m. 

Metro Computer Store 

Central Arizona PET People 

842 W. Calle del Norte 

Chandler, AZ 85224 

(6021 899-3622 

Roy Schahrer 

ACUG 

c/o Home Computer Service 

2028W.Came!backRd. 

Phoenix, AZ 85015 

(602)249-1186 

Dan Deacon 

First Wed. of month 

West Mesa VIC 

2351 S. Standage 

Mesa, AZ 85202 

Kenneth S. Epstein 

ARKANSAS 

Commodore/PET Users Club 

Conway Middle School 

Davis Street 

Conway, AR 72032 

Contact: Geneva Bowlin 

Booneville 64 Club 

c/o A. R.Hederich 

Elementary School 

401 W. 5th St. 

Booneville, AR 72927 

MaryTaff 

CALIFORNIA 

SCPUC Southern California 

PET Users Group 

c/o Data Equipment Supply 

Corp. 

8315 Firestone Blvd. 

Downey. CA 90241 

(213)923-9361 

Meetings: First Tuesday of 

each month 

California VIC Users Group 

c/o Data Equipment Supply 

Corp. 

8315 Firestone Blvd. 

Downey, CA 90241 

(213) 923-9361 

Meetings: Second Tues. of 

each month 

Commodore Users Club 

1041 Foxenwoods Drive 



Santa Maria. CA 93455 
(805) 937-4106 
Contact: Greg Johnson 
Valley Computer Club 
2006 Magnolia Blvd. 
Burbank, CA 
(2131849-4094 
1st Wed. 6 p.m. 
Valley Computer Club 
1913 Booth Road 
Ceres, CA 95307 
PUG of Silicon Valley 
22355 Rancho Ventura Road 
Cupertino, CA 95014 
Lincoln Computer Club 
750 E. Yosemite 
Manteca.CA 95336 
John Fung, Advisor 

PET on the Air 
525 Crestlake Drive 
San Francisco, CA 94132 
Max J. Babin, Secretary 
PALS (Pets Around) 
Livermore Societv 
886 South K 
Livermore, CA 94550 
(415) 449-1084 
Every third Wednesday 
7:30 p.m. 
Contact: J. Johnson 

SPHINX 

7615LevistonAve. 
El Cerrito.CA 94530 
(415) 527-9286 
Bill MacCracken 

San Diego PUG 

c/o D. Costarakis 

3562 Union Street 

(714)235-7626 

7a.m.-4p.m. 

Walnut Creek PET 

Users Club 

1815 Ygnacio Valley 

Road 

Walnut Creek, CA 94596 

Jurupa Wizards 

4526 Kingsbury PI. 

Riverside, CA 92503 

Contact: Walter J. Scott 

The Commodore Connection 

2301 Mission St. 

Santa Cruz, CA 95060 

(408)425-8054 

Bud Massey 

San Fernando Valley 

Commodore Users Group 

21208 Nashville 

Chatsworth.CA 91311 

(213) 709-4736 

Tom Lynch 

2nd Wed, 7:30 

VACUUM 

277 E. 10th Ave. 

Chico, CA 95926 

(916) 891-8085 

Mike Casella 

2nd Monday of month 

VIC 20 Users Group 

2791 McBrideLn. #121 

Santa Rosa, CA 

(707) 575-9836 

Tyson Verse 



South Bay Commodore Users Group 

1402 W. 2 18th St. 

Torrance, CA 90501 

Contact: Ear! Evans 

Slo VTC 20/64 Computer Club 

17669th St. 

Los Osos, CA 

The Diamond Bar R.O.P. Users Club 

c/o Rincom School 

2800 Hollingworth 

West Covina, CA 91792 

(213) 965-1696 

Don Mcintosh 

Commodore Interest Association 

c/o Computer Data 

14660 La Paz Dr. 

Victorville, CA 92392 

Mark Finley 

Fairfield VIC 20 Club 

1336 McKinley St. 

Fairfield, CA 94533 

(707)427-0143 

Al Brewer 

1st & 3rd Tues. at 7 p.m. 

Computer Bam Computer Club 

319 Main St. 

Suite #2 

Salinas, CA 93901 

757-0788 

S. MarkVanderbilt 

Humboldt Commodore Group 

P.O. Box 570 

Areata, CA 95521 

R.Turner 

Napa Valley Commodore Computer Club 

c/o Liberty Computerware 

2680 Jefferson St. 

Napa, CA 94558 

(707) 252-6281 

Mick Winter 

1st & 3rd Mon. of month 

S.D. East County C-64 User Group 

6353 Lake Apopka Place 

San Diego, CA 92119 

(619) 698-7814 

Linda Schwartz 

COLORADO 

VTCKIMPET Users Group 

4 Waring Lane. Greenwood 

Village 

Littleton, CO 80121 

Contact: Louis Roehrs 

Colorado Commodore Computer Club 

2187 S. Golden Ct. 

Denver, CO 80227 

986-0577 

Jack Moss 

Meet: 2nd Wed. 

CONNECTICUT 

John F. Garbarino 

Skiff Lane Masons Island 

Mystic, CT 06355 

(203) 536-9789 

Commodore User Club 

Wethersfield High School 

411 Wolcott Hill Road 

Wethersfield, CT 06109 

Contact: Daniel G. Spaneas 

VIC Users Club 

c/o Edward Barszczewski 

22 Tunxis Road 

West Hartford. CT 06107 



New London County 

Commodore Club 

Doolittle Road 

Preston, CT 06360 

Contact: Dr. Walter Doolittle 

FLORIDA 

Jacksonville Area 

PET Society 

401 Monument Road. # 177 

Jacksonville, FL 32211 

Richard Prestien 

6278 SW 14th Street 

Miami, FL 33144 

South Florida 

PET Users Group 

Dave Young 

7170 S.W. 11th 

West Hollywood, FL 33023 

(305) 987-6982 

VIC Users Club 

c/o Ray Thigpen 

4071 Edgewater Drive 

Orlando, FL 32804 

PETs and Friends 

129 NE 44 St. 

Miami, FL 33 137 

Richard Plumer 

Sun Coast VICs 

P.O. Box 1042 

Indian Rocks Beach, FL 

33535 

MarkWeddell 

Bay Commodore Users 

Group 

c/o Gulf Coast Computer 

Exchange 

241N.TyndallPkwy. 

P.O. Box 6215 

Panama City, FL 32401 

(904) 785-6441 

Richard Scofield 

Gainesville Commodore 

Users Club 

3604-20ASW31stDr. 

Gainesville, FL 32608 

Louis Wallace 

64 Users Group 

P.O. Box 561689 

Miami, FL 33156 

(305) 274-3501 

Eydie Sloane 

Brandon Users Group 

108Ang!ewoodDr. 

Brandon, FL 33511 

(813)685-5138 

Paul Daugherty 

Commodore 64/VIC 20 User Group 

Martin Marietta Aerospace 

P.O. Box 5837, MP 142 

Orlando, FL 32855 

(305) 352-3252/2266 

Mr. Earl Preston 

Brandon Commodore Users Group 

414 E. Lumsden Rd. 

Brandon, FL 33511 

Gainesville Commodore Users Group 

Santa Fe Community College 

Gainesville, FL 32 602 

James E.Birdsell 

Commodore Computer Club 

P.O. Box 21138 

St. Petersburg. FL 33742 



■U 
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GEORGIA 

VIC Educators Users Group 
Cherokee County Schools 
110 Academy St. 
Canton, CA 301 14 
Dr. Al Evans 
Bldg.68, FLETC 
Glynco.CA 31524 
Richard L. Young 

YlC-tims 

P.O. Bos 467052 

Atlanta, GA 30346 

(4041922-7088 

Eric Ellison 

HAWAII 

Commodore Users Group of Honolulu 

c/o PSH 

824 Bannister St. 

Honolulu, HI 

(808) 848-2088 

3rd Fri. every month 

IDAHO 

GHS Computer Club 

c/o Crangeville High School 

910 S. D St. 

Grangeville, ID 83530 

Don Kissinger 

S.R.H.S. Computer Club 
c/o Salmon River H.S. 
Riggins, id 83549 
Barney Foster 
Commodore Users 
548 E. Center 
Pocatello, ID 83201 
(208) 233-0670 
Leroy Jones 

Eagle Rock Commodore Users Croup 

900 S.Emerson 

Idaho Falls, ID 83401 

Nancy J. Picker 

ILLINOIS 

Shelly Wernikoff 

2731 N.Milwaukee 

Avenue 

Chicago. 1L 60647 

VIC 20/64 Users Support 
Group 

c/o David R. Tarvin 
114 S.Clark Street 
Pana, 1L 62557 
(217) 562-4568 
Central Illinois PET User 
Group 
635 Maple 
Mt.Zion, IL62549 
(217) 864-5320 
Contact: Jim Oldfield 
ASM/TED User Croup 
200 S. Century 
Rantaul.IL 61866 
(217) 893-4577 
Contact: Brant Anderson 

PET VIC Club (PVC) 

40 S. Lincoln 

Mundelein, IL 60060 

Contact: Paul Schmidt, 

President 

Rockford Area PET Users 

Group 

1608 Benton Street 

Rockford. IL 61107 



Commodore Users Club 
1707 East Main St. 
Olney.lL 62450 
Contact: David E. Lawless 
VIC Chicago Club 
3822 N.Bell Ave. 
Chicago, IL 60618 
John L. Rosengartcn 
Chicago Commodore 64 
Users & Exchange Group 
P.O. Box 14233 
Chicago. IL 60614 
Jim Rohinson 

Fox Valley PET Users 

Group 

833 Willow St. 

Lake in the Hills, 11.60102 

(312) 658-7321 

Art DeKneef 

The Commodore 64 Users 

Group 

4200 Commerce Ct., Suite 100 

Lisle, I L 60532 

(312)369-6525 

Cus Pagnotta 

Oak Lawn Commodore Users Group 

The Computer Store 

11004 S.Cicero Ave. 

Oak Lawn, IL 60453 

(312) 499-1300 

Bob Hushes 

INDIANA 

PET/64 Users 

10136 E. 96th St. 

Indianapolis. IN 46256 

(317) 842-6353 

Jerry Brinson 

Cardinal Sales 

6225 Coffman Road 

Indianapolis, IN 46268 

(317) 298-9650 

Contact: Carol Wheeler 

CHUG (Commodore 

Hardware Users Group) 

12104 Meadow Lane 

Oaklandon. IN 46236 

Contact: Ted Powell 

VICIndyClub 

P.O. Box 11543 

Indianapolis, IN 46201 

(317) 898-8023 

Ken Ralston 

Northern Indiana 

Commodore Enthusiasts 

927 S. 26th St. 

South Bend, IN 46615 

Eric R. Bean 

Commodore Users Group 

1020 Michigan Ave. 

Logansport, IN 46947 

(219) 722-5205 

Mark Bender 

Computer Workshop VIC 20/64 Club 

282 S. 600 W. 

Hebron, IN 4634! 

(219) 988-4535 

Mary O'Bringer 

The National Science Clubs of America 

Commodore Users Division 

7704TaftSt. 

Mcrrillville. IN 46410 

Brian Lapley or Tom Vlasic 



East Central Indiana VIC User Group 

Rural Route #2 

Portland. IN 47371 

Stephen Erwin 

National VIC 20 Program Exchange 

102 Hickory Court 

Portland. IN 47371 

(219)726-4202 

Stephen Erwin 

IOWA 

Commodore User Group 
114 8th St. 
Ames, IA 50010 

Quad City Commodore Club 
1721 Grant St. 
Bettendorf, LA 52722 
(319) 355-2641 
John Yigas 

Commodore Users Group 

965 2nd St. 

Marion, IA 52302 

(319) 377-5506 

Vcm Rotert 

3rd Sun. of month 

Siouxland Commodore Club 

2700 Sheridan St. 

Sioux City, IA 51 104 

(712)258-7903 

Gary Johnson 

1st <£ 3rd Monday of month 

421 W. 6th St. 

Waterloo, LA 50702 

1319)232-1062 

Frederick Volker 

Commodore Computer Users 

Group of Iowa 

Box 3140 

Des Moines, LA 50316 

(515) 263-0963 or (515) 287-1378 

Laura Miller 

KANSAS 

Wichita Area PET 

Users Group 

2231 Bullinger 

Wichita, KS 67204 

(316) 838-0518 

Contact: Mel Zandler 

Kansas Commodore 

Computer Club 

101 S. Burch 

Oiathe.KS 66061 

Contact: Paul B. Howard 

Commodore Users Group 

6050 S. 183 St. West 

Viola, KS 67149 

Walter Lounsbery 

KENTUCKY 

VIC Connection 

1010 S. Elm 

Henderson, KY 42420 

Jim Kemp 

LOUISIANA 

Franklin Parish Computer 

Club 

#3 Fair Ave. 

Winnisboro, LA 71295 

James D. Mays, Sr, 

NOVA 

917 Gordon St. 

New Orleans, LA 70117 

(504) 948-7643 

Kenneth McCrudcr, Sr. 



VIC 20 Users Croup 
5064 Bowdon St. 
Marrero, LA 70072 
(504) 341-5305 
Wayne D.Lowery. R.N. 

MARYLAND 

Assoc, of Personal 
Computer Users 
5014 Rodman Road 
Bethesda. MD 20016 
Blue TUSK 
700 East Joppa Road 
Baltimore. MD 21204 
Contact: Jim Hauff 
House of Commodore 
8835 Satyr Hill Road 
Baltimore, MD 21234 
Contact: Emest J. Fischer 
Long Lines Computer Club 
323 N.Charles St.. Rm. 201 
Baltimore, MD 21201 
Gene Moff 

VIC &. 64 Users Croup 
The Boyds Connection 
21000 Clarksburg Rd. 
Boyds, MD 20841 
(301)428-3174 
Tom DeReggi 

VIC 20 Users Group 
23 Coventry Lane 
Hagerstown, MD 21740 
Joseph Rutkowski 

Hagerstown Users Group 

1201-B Marshall St. 

Hagerstown. MD 21740 

(301) 790-0968 

Greg Stewart 

1st & 3rd Friday of month 6:30 p.m. 

Rockvillc VIC/64 Users Group 

13013 Evanstown SI. 

Rockville.MD 20853 

(301)946-1564 

Meryle or Tom Pounds 

MASSACHUSETTS 

Eastern Massachusetts 

VIC Users Group 

c/o Frank Ordway 

7 Flagg Road 

Marlboro. MA 02173 

VIC Users Group 

c/o llene Hoffman-Sholar 

193 Garden St. 

Needham, MA 02192 

Commodore Users Club 

Stoughton High School 

Stoughton, MA 02072 

Contact: Mike Lennon 

Berkshire PET Lovers 

CBM Users Group 

Taconic High 

Pittsfield, MA 01201 

The Boston Computer 

Society 

Three Center Plaza 

Boston, MA 02108 

(617)367-8080 

Mary E. McCann 

VIC Interface Club 

c/o Procter & Gamble Inst. Shop 

780 Washington St. 

Quincy, MA 02169 

C. Gary Hal! 
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Masspet Commodore Users Group 
P.O. Box 307 
East Taunton, MA 02718 
David Rogers 

Raytheon Commodore Users Croup 

Raytheon Company 

Hartwell Rd. GRA-6 

Bedford. MA 01730 

John Rudy 

Commodore 64 Users 

Croup of The Berkshires 

184 Highland Ave. 

Pittsh'eld, MA 01201 

Ed Kucinski 

MICHIGAN 

David Liem 

14361 Warwick Street 

Detroit, Ml 48223 

VIC Users Club 

Unive rsitv of Michigan 

School of Public Health 

Ann Arbor. Ml 48109 

Contact: John Cannon 

Commodore User Club 

32303 Columbus Drive 

Warren, Ml 48093 

Contact: Robert Steinbrecher 

Commodore Users Group 

c/o Family Computer 

3947 W. 12 Mile Rd. 

Berkley, MI 48072 

W Michigan VIC 20-64 Users 

1311 Portland NE 

Grand Rapids, Ml 49505 

(616) 459-7578 

Jim D'Haem 

VIC for Business 

6027 Orchard Ct. 

Lansing. Ml 48910 

Mike Marotta 

South Computer Club 

South Jr. High School 

45201 Owen 

Belleville, MI 48111 

Ronald Ruppert 

Commodore Users Croup 

c/o Eaton Rapids Medical Clinic 

101 Spicerville Hwy. 

Eaton Rapids. MI 48827 

Albert Meinke III, M.D. 

South East Michigan Pet Users Group 

Box 2 14 

Farmington, MI 48024 

Norm Eisenberg 

Commodore Computer Club 

H. Dow High School. Rm #226 

Midland, MI 4S640 

(517) 835-5130 

JohnWalley 

9:30 p.m. Sept/May 

VIC, 64. PET Users Group 

8439 Arlis Rd. 

Union Lake. MI 48085 

363-8539 

Bert Searing 

MINNESOTA 

MUPET (Minnesota Users of 

PET) 

P.O. Box 179 

Annandale.MN 55302 

c/o Jon T. Minerich 



Twin Cities Commodore 

Computer Club 

6623 Ives Lane 

Maple Grove, MN 55369 

(612) 424-2425 

Contact: Rollie Schmidt 

MISSOURI 

KCPUG 

5214 Blue Ridge Boulevard 

Kansas City, MO 64133 

Contact: Rick West 

(816) 356-2382 

PET SET Club of St. Louis 

633 Bent Oak Drive 

Lake St. Louis, MO 63367 

(314) 625-2701 or 625-4576 

Tony Ott 

V1CINFONET 

P.O. Box 1069 

Branson. MO 65616 

(417i 334-6099 

Jory Sherman 

Worth County PET Users 

Group 

Grant City, MO 

(816) 564-3551 

David Hardy 

Mid-Missouri Commodore Club 
1804 Vandiver Dr. 
Columbia, MO 65201 
(314) 474-4511 
Phil Bishop 

MONTANA 

Powder River 
Computer Club 
Powder River Cou nty 
High School 
Broadus.MT 59317 
Contact: Jim Sampson 
Commodore User Club 
1109 West Broadway 
Butte, MT 59701 
Contact: Mike McCarthy 
NEVADA 

Las Vegas PET Users 
4884 Iron Avenue 
Las Vegas, NV 89110 
NEW JERSEY 
Amateur Computer Group 
18 Alpine Drive 
Wayne, NJ 07470,, 
Somerset Users Club 
49 Marcy Street 
Somerset, NJ 08873 
Contact: Robert Hoizer 
Educators Advisory 
P.O. Box 186 
Medford.NJ 08055 
(609) 953-1200 
JohnHandfield 
VIC-TIMES 
46 Wavne Streel 
Edison. NJ 08817 
Thomas R. Molnar 

VIC 20 User Group 

67DistlerAve. 

W. Caldwell, NJ 07006 

(201)284-2281 

C.M. Amin 



VIC Software Development Ciub 

77Foma!hautAve. 

Seweil.NJ 08080 

H. P. Rosenberg 

ACCNJ PET/VIC/CBM 

User Group 

30 Riverview Terr. 

Belle Mead, NJ 08502 

(2011359-3862 

J.M. Pylka 

South Jersey Commodore Computer 

Users Club 

46-B Monroe Park 

Maple Shade, NJ 08052 

(609) 667-9758 

Mark Orthner 

2nd Fri. of month 

NEW HAMPSHIRE 

Northern 1 New England 

Computer Society 

P.O. Box 69 

Berlin, NH 03570 

TBHVIC-NICs 

P.O. Box 981 

Salem, NH 03079 

NEW MEXICO 

Commodore Users Group 

6212 Karlspn, NE 

Albuquerque, NM 87113 

(505)821-5812 

Danny Byrne 

NEWTORK 

CapitM District 64/VIC 20 Users Group 

363 Hamilton St. 

Albany, NY 12210 

(518)436-1190 

Bill Pizer 

Long Island PET Society 

Ralph Bressler 

Harborfields HS 

Taylor Avenue 

Greenlawn, NY 11740 

PET User Club 

of Westchester 

P.O. Box 1280 

White Plains, NY 10602 

Contact: Ben Meyer 

LIVE (Long Island 

VIC Enthusiasts) 

17 Picadilly Road 

Great Neck. NY 11023 

Contact: Arnold Friedman 

Commodore Masters 

25 Croton Ave. 

Staten Island, NY 10301 

Contact: Stephen Farkouh 

VIC Users Club 

76 Radford St. 

Staten Island, NY 10314 

Contact: Michael Franti 

Rockland County Commodore 

Users Group 

c/o Ross Garber 

14 Hillside Court 

Suffern, NY 10901 

(914)354-7439 

West Chester County VIC 
Users Group 
P.O. Box 146 
Pelham, NY 10552 
Joe Brown 



SPUG 

4782 Boston Post Rd. 
Pelham. NY 10803 
PaulSkipski 
VIC 20 User Club 
151-28 22nd Ave. 
Whitestone, NY 11357 
Jean F. Coppola 

VIC 20 User Club 
339 Park Ave. 
Babylon, NY 11702 
(516)669-9126 
Gary Overman 
VIC User Group 
1250 Ocean Ave. 
Brooklyn, NY 11230 
(212)859-3030 
Dr. Levitt 

L&M Computer Club 

VIC 20 & 64 

4 Clinton St. 

Tully, NY 13159 

(315) 696-8904 

DickMickelson 

Commodore Users Group 

I CorwinPI. 

Lake Katrine, NY 12449 

/.Richard Wright 

8*8 Enthusiasts 

P.O. Box 28 Rhodes Rd. 

Apalachin, NY 13732 

Keith Merrill 

VIC 20/Commodore 64 

Users Group 

31 Maple Dr. 

Lindenhurst, NY 11757 

(516) 957-1512 

Pete Lobol 

VIC Information Exchange 

Club 

336 W. 23 St, 

Deer Park, NY 11729 

Tom Schlege! 

SASE& phone please 

New York Commodore 

Users Croup 

380 Riverside Dr„ 7Q 

New York, NY 10025 

(212)566-6250 

BenTunkelang 

Parsippany Computer Group 

51FerncliffRd. 

Morris Plains, NJ 07950 

(201)267-5231 

Bob Searing 

Hudson Valley Commodore Club 

1 Manor Dr. 

Woodstock, NY 12498 

F.S. Goh 

1st Wednesday of month 

L1VICS (Long Island VIC Society) 

20 Spyglass Lane 

East Setauket, NY 11733 

(516)751-7844 

Lawrence Stefani 

VIC Users Group 

c/o Stoney Brook Learning Center 

1424 Stoney Brook Rd. 

Stoney Brook, NY 11790 

(516)751-1719 

Rohert Wurtzel 
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NORTH CAROLINA 

Amateur Radio PET Users Croup 

P.O. Box 30694 

Raleigh, NC 27622 

Contact: Hank Roth 

VIC Users Club 

c/o David C. Fonenberry 

Route 3, Box 351 

Lincolnton.NC 28092 

Microcomputer Users Club 

Box 17142 Bethabara Sta. 

Winston-Salem, NC 27116 

Joel D. Brown 

VIC Users Club 

Rt. 11, Box 686 

Hickory, NC 28601 

Tim Gromlovits 

OHIO 

Dayton Area PET 

User Group 

933 Livingston Drive 

Xenia, OH 45385 

B. Worby, President 

(513(848-2065 

J. Watson, Secretary 

(513) 372-2052 

Central Ohio PET 

Users Group 

107 S . Westmoor Avenue 

Columbus, OH 43204 

(614)274-6451 

Contact: Philip H. Lynch 

Toledo PETS 

734 Donna Drive 

Temperance, MI 48182 

Contact: Gerald Carter, 

President 

Chillicothe Commodore 

Users Group 

P.O. Box 21 i 

Chillicothe, OH 45601 

William A. Chaney 

Licking County 64 Users Group 

323 Schuler St. 

Newark, OH 43055 

(614) 345-1327 

11433 Pearl Rd. 

Strongsville, OH44136 

Paul M. Warner 

OKLAHOMA 

Southwest Oklahoma 

Computer Club 

P.O. Box 6646 

Lawton, OK 73504 

Garry Lee Crowell 

1:30 1st Sunday at 

Lawton City Library 

Tulsa Area Commodore Users Group 

Tulsa Computer Society 

P.O. Box 15238 

Tulsa, OK 74112 

Annette Hinshaw 

Commodore Oklahoma Users Club 

4000 NW 14th St. 

Oklahoma City, OK 73107 

(405) 943-1370 

Stanley B. Dow 

ORECON 

NW PET Users Group 

John F. Jones 

2134 N.E. 45th Avenue 

Portland, OR 97213 



PENNSYLVANIA 

PET User Group 
Gene Beals 
P.O. Box 371 

Montgomeryville, PA 18936 
Penn Conference Computer Club 
c/o Penn Conference of SDA 
720 Museum Road 
Reading, PA 19611 
Contact: Dan R. Knepp 

PACS PET Users Group 

20th & OIney Streets 

Philadelphia, PA 19120 

Glen Schwartz 

807 Avon 

Philadelphia, PA 19116 

Gene Planchak 

4820 Anne Lane 

Sharpsville, PA 15150 

(412) 962-9682 

PPC (Pittsburgh PET Croup) 

c/o Joel A. Casar, DMD 

2015 Garrick Drive 

Pittsburgh, PA 15235 

(412) 371-2882 

Westmoreland Commodore 

Users Club 

c/o DJ & Son Electronics 

Colonial Pla2a 

Utrobe, PA 15650 

Jim Mathers 

COMPSTARS 

440 Manatawny St. 

Pottstown, PA 19464 

Larry Shupinski, Jr. 

Meet at Audio Video 

Junction 

Commodore Users Club 

3021 Ben Venue Dr. 

Creensburg, PA 15601 

(4)2)836-2224 

Jim Mathers 

VIC 20 Programmers, Inc. 

c/o Watson Woods 

115 Old Spring Rd. 

Coatesville, PA 19320 

Robert Gougher 

G.R.C. User Club 

300 Whitten Hollow Rd. 

New Kensington, PA 15068 

Bill Bolt 

NADC Commodore Users Club 

2480akctaleAve. 

Horsham. PA 19044 

Norman McCrary 

CACC (Capitol Area Commodore Club) 

134 College Hill Rd. 

Enola, PA 17025 

(717) 732-2123 

Lewis Buttery 

Union Deposit Mall at 7 p.m. 

G/C Computer Owners Group 

P.O. Box 1498 

Reading, PA 19607 

Jo Lambert 

(215) 775-2600, ex 6472 

PUERTO RICO 

CUC of Puerto Rico 
RFD#l,Boxl3 
San Juan, PR 00914 
Ken Burch 



VIC 20 User Group 
655 Hernandez St. 
Miramar, PR 00907 
Robert Morales, Jr. 
RHODE ISLAND 
Irving B. Silverman, CPA 
160 Taunton Ave. 
E. Providence, Rl 02914 
Contact: Michelle Chavanne 
Newport VIC/64 Users 
10 Maitland Ct. 
Newport, RI 02840 
(401)849-2684 
Dr. Matt McConeghy 
The VIC 20 Users Club 
Warwick, RI 02886 
Tom Davey 

SOUTH CAROLINA 

Beauford Technical College 

100 S. Ribaut Rd. 

Beauford, SC 29902 

Dean of Instruction 

SOUTH DAKOTA 

PET User Group 

515 South Duff 

Mitchell, SD 57301 

(605) 996-8277 

Contact: Jim Dallas 

VIC/64 Users Club 

203 E.Sioux Ave. 

Pierre, SD 57501 

(605) 224-4863 

Larry Lundeen 

TENNESSEE 

River City Computer 

Hobbyists 

Memphis, TN 

1st Mon. at Main Library 

Nashville Commodore Users Group 

P.O. Box 121282 

Nashville, TN 37212 

3rd Thurs. at Cumberland Mus 

Commodore User Club 

Metro Computer Center 

1800 Dayton Blvd. 

Chattanooga, TN 37405 

Mondays 7:30 pm 

Metro-Knoxville 64 Users Club 

7405 Oxmoor Rd., Rt. #20 

Knoxville.TN 37921 

(615) 938-3773 

Ed Pritchard 

TEXAS 

SCOPE 

1020 Summit Circle 

Carrolton.TX 75006 

PET Users 

2001 Bryan Tower 

Suite 3800 

Dallas, TX 75201 

Larry Williams 

P.O. Box 652 

San Antonio, TX 78293 

PET User Group 

John Bowen 

TexasA&M 

Microcomputer Club 

TexasA&M.TX 

CHUG (Commodore Houston 

Users Group) 



8738Wildforcst 

Houston. TX 77088 

(713) 999-3650 

Contact: John Walker 

Corpus Christi Commodores 

3650TopekaSt. 

Corpus Christi, TX 78411 

(512) 852-7665 

Bob McKelvy 

Commodore Users Group 

5326 Cameron Rd. 

Austin, TX 78723 

(512)459-1220 

Dr. Jerry D. Frazee 

VIC Users Croup 

3817 64th Dr. 

Lubbock, TX 79413 

Southeast Houston VIC 

Users Croup 

11423 Kirk Valley Dr. 

Houston, TX 77089 

(713)481-6653 

64 Users Group 

2421 Midnight Circle 

Piano, TX 75075 

S.C.Crodin 

UTAH 

Utah PUG 

Jack Fleck 

2236 Washington Blvd. 

Ogden.UT 84401 

The Commodore Users 

Club 

742 Tavlor Avenue 

Ogden, UT 84404 

Contact: Todd Woods Kap, 

President 

David J. Shreeve, 

Vice President 

TheVIClk 

799 Ponderosa Drive 

Sandy, UT 84070 

Contact: Steve Graham 

VIC 20 Users 

324 N. 300 W. 

Smithfield.UT 84335 

Dave DeCorso 

Northern Utah VIC & 64 

Users Group 

P.O. Box 533 

Garland, UT 843 12 

David Sanders 

The Utah Commodore Users Group 

652 West 700 North 

Clearfield, UT 84015 

(8011 776-3950 

Rodney Keller or Richard Brenchly 

VIRCINIA 

Northern VA PET Users 

Bob Karpen 

2045 Eakins Court 

Reston, VA 22091 

(803)860-9116 

VIC Users Group 

Rt. 2, Box 180 

Lynchburg, VA 24501 

Contact: Dick Rossignol 

VIC Users Group 

c/o Donnie L. Thompson 

1502 Harvard Rd, 

Richmond, VA 23226 
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Dale City Commodore 

User Group 

P.O. Box 2004 

Dale City, VA 22193 

(703) 680-2270 

James Hogler 

Tidewater Commodore 

Users Croup 

4917WestgroveRd. 

Virginia Beach, VA 23455 

Fred Monson 

Fredericksburg Area 

Computer Enthusiasts 

P.O. Box 324 

Locust Grove. VA 22508 

(703)972-7195 

Michael Parker 

Commonwealth 20/64 

Users Group 

1773Vi'ainwrightDr. 

Reston.VA 22090 

1703)471-6325 

TalCarawan, Jr. 

VIC 20 Victims 

4301 Columbia Pike #410 

Arlington, VA 22204 

{703)920-0513 

Mike Spengel 

Peninsula Commodore 64 Users Croup 

124 Burnham Place 

Newport News, VA 23606 

1804)595-7315 

Richard C.Wilmoth 

WASHINGTON 

NW PET Users Group 

2565 Dexter N. 3203 

Seattle, WA 98109 

Contact: Richard Ball 

PET Users Group 

c/o Kenneth Tong 

1800 Taylor Ave. NI02 

Seattle, WA 98102 

Whidbey Island Commodore 

Computer Club 

94 7. N, Burroughs Ave. 

Oak Harbor, WA 98277 

Michael D. Clark 

Central Washington 

Commodore Users Group 

1222 S. 1st St. 

Yakima. WA 98902 

Tim McElroy 

Blue Mountain Commodore 

Users Club 

667 Canary Dr. 

Walla Walla. WA 99362 

(5091 525-5452 

Keith Rodue 

WEST VIRGINIA 

Personal Computer Club 

P.O. Box 1301 

Charleston. WV 25325 

Cam Cravens 

WISCONSIN 

Sewpus 

c/o Theodore J. Polozynski 

P.O. Box 21851 

Milwaukee, WI 53221 

Waukesha Area Commodore 

User Croup IVYACUG) 

256>/j W. Broadway 



Waukesha, WI 53186 

Contact: Walter Sadler 

(414)547-9391 

Commodore User Group 

U30 Elm Grove St. 

Elm Grove. WI 53122 

Tony Hunter 

Commodore 64 Software 

Exchange Group 

P.O. Box 224 

Oregon. WI 53575 

E.J.Rosenberg 

C.L.f.B.84 

6156 Douglas Ave. 

Caledonia, WI 53108 

(414) 835-4645 pm 

Jack White 

2nd Sat every month 10:00 am 

VTC-20& 64 User Group 

522 West Bergen Dr. 

Milwaukee. WI 53217 

(414)476-8125 

Mr.Wachtl 

CANADA 

Toronto PET 

Users Group 

381 Lawrence Ave. West 

Toronto, Ontario, Canada 

M5M1B9 

(416)782-9252 

Contact: Chris Bennett 

PET Users Club 

c/o Mr. Brown 

Vallev Heights Secondary Schoo 

Box 159 

Langton. Ont. N0E 1G0 

Vancouver PET Users Croup 

P.O. Box 91 164 

West Vancouver, British 

Columbia 

Canada V7V3N6 

CCCC (Canadian 

Commodore Computer Club) 

c/o Strictly Commodore 

47 Coachwood Place 

Calgary, Alberta. Canada 

T3H 1E1 

Contact: Roger Olanson 

W.P.U.C. 

9-300 Enniskill en Ave. 

Winnipeg. Manitoba R2V 0H9 

Lam' Ntiufeld 

VIC-TIMS 

2-830 Helena St. 

Trail, British Columbia 

V1IUX2 

(604)368-9970 

Greg Goss 

Arva Hackers 

Medway High School 

Arva. Ontario N0M 1C0 

li. Ltrch 

Nova Scotia Commodore 

Computer Users Group 

66 Landrace Cres. 

Dartmouth. N.S.B2W 2 P9 

Andrew Cornwall 

Bonn will e VIC Cursors 

Box 2100 

Bonnyville. .Alberta T0A 0L0 

(403) 826-3992 

Ed Wittchen 



FINLAND 

VlC-Club in Helsinki 
c/oMatti Aamio 
Linnustajankj 2B7 
SF-02940 ESP00 94 
Finland 
KOREA 

Commodore Users Club 
K.P.O. Box 1437 
Seoul, Korea 
Contact: S.K.Cha 

MEXICO 

Asociacion De Usarios 

Commodore 

c/o Alejandro Lopez 

Arechiga 

Holbein 174-6° Piso 

Mexico 18, D.F. 

Club de Usarios Commodore 
Sigma del Norte 
Mol del Valle. Local 44 
Garza Garcia, NX. 66220 

NEW ZEALAND 

Commodore Users Group 

MeetatVHFCIubrooms 

Hazel Ave. 

Mount Roski II 

3rd Wed. of month, 7:30 pm 

Roger Altena 278-5262 

Nelson VIC Users Group 

c/o P.O. Box 860 

Nelson, New Zealand 

Peter Archer 

E.R, Kennedy 

c/o New Zealand Synthetic 

Fuels Corp. Ltd. 

Private Bag 

New Plymouth 

NORWAY 

VIC Club of Norway 

Nedre Bankegt 10, 

1750Halden 

Norway 

UNITED KINGDOM 

North London Hobby 

Computer Club 

Dept. of Electronics & 

Communications 

Engineering 

The Polytechnic of North 

London 

HollowavRd. 

London N7 8DB 

Croydon Microcomputer Club 

111 Selhurst R. 

Sel hurst, London SE25 6LH 

01-653-3207 

Vemon Gifford 



User Bulletin Board 

User Groups Forming: 

CALIFORNIA 

Pulare County Area 
Contact Alan Landon 
1555 E. Sonora 
Pulare, CA 93274 
(209) 688-6832 
FLORIDA 

VIC 20 Group 
Contact Frank H. Topping 
1859 Neptune Drive 
Englewood, FL 33533 

MARYLAND 

VIC 20 Group 
Contact Robert F. Buck, Jr. 
814 Brentwood Manor 
Sedalia.MD 65301 



Classified 



ATTENTION VIC 20™ OWNERS! 
Educational Programs at 
Bargain Prices! 

Write to Victoria Williams, Ph.D., 
Palos Verdes Learning Center, 
716 Yarmouth Road, #203P, 
Palos Verdes Estates, CA 90274. 



Fun, Games and Educational 
Programs under S5.00. For free 
catalog write to: SOFT 4 YOU, 
P.O. Box 3254, Reston, VA 22090. 



Micrographics™ 

• Custom and proprietary software 
for the Commodore 64™ 

• Specialists in image processing 
and graphics design 

Micrographics Corp. 
5301 Wakefield Road 
BethesdaMD. 20816 
(3011951-0418 
Commodore 64 is a trademark of 
Commodore Electronics Ltd, 
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that does not compute... 



"Cursor Input Program" 

March, 1983 

In lines 220 and 230 of the program listing, the cursor 
right commands should be cursor left. Also, the program 
listing as shown in that issue used graphic characters from 
PET/CBM, so VIC 20 and Commodore 64 owners may not 
have realized that the program will also run on their com- 
puters. For the benefit of VIC and 64 users, the reverse 
graphic characters translate as follows: 

rvs q is cursor down 

rvs Q is cursor up 

rvs r is Ctrl rvs on 

rvs R is Ctrl rvs off 

rvs S is shift clr/home 

"Studying Complex Rhythms on the 
Commodore 64" 

March, 1983 

According to the last paragraph on page 76, the 64 al- 
lows up to four simultaneous channels of sound. That's not 
quite correct. The sound chip in the Commodore 64 gener- 
ates three channels of sound. A fourth channel is available 
by using the external input capabilities of the chip. 

Also, the note table on page 80 is correct only for the 
very early versions of the 64. The computers presently be- 
ing distributed have a clock frequency of about 1.02 MHz. 
The correct note table appears in the Commodore 64 
Programmer's Reference Guide. 

The VIC Magician 

"PEEKing Keys to Control Actions" 

March, 1983 

The formulas for left and right columns on page 48 need 
revision. They should read as follows: 

L=INT(23*RND(1)) 

LF=7680+(22*L) 
and 

R=INT(23*RND(1)) 

RT=7701 + (22*R) 
These formulas generate a random number between 
and 22 (the article said they generate a number between 
land 23). 

Also, on page 51, second column, line 95 should read: 

95 IFPEEK(E-1) = 90THEN20 



"Seeing RTTY on the VIC" 

December 1982/January 1983 

We took some liberties with the program listings on 
page 35 that may have confused our readers. Bruce Cam- 
eron, one of the authors, submits the following corrections 
to straighten it all out: 

ASCII Program 



5 R£M "ASCII" 

10 OPEN2,£,0,CHR*aS0+n+CHR$aS@> 

20 GET#2,C* 

30 IFC*>=" " AND C$<="t" OR C$=CHR*U3) 

THENPRIHTC*; 
40 GOTO20 



Baudot Letters Only 



5 REM "BAUDOT LTRS" 
10 QPEN2,2,0,CHR$<36+n+CHR$<0> 
20 T*="E fi SIU"+CHR$<13>+ 
"BRJNFCK1ZLWHVPQQBG IW " 

30 GET#S , C$ : IFC*=" "THEN30 
40 T=flSC(C$? 

50 IFT>0THENPRINTMID$(T*,T, 1); 
60 GOTO30 



Full Baudot 



5 REM "FULL BAUDOT" 

10 OPEN2 J 2. 1 0,CHRf(96+l)+CHR$(0) 

20 LS=-1 

30 LF$=CHR$(10> 

40 CR*=CHR*<13> 

50 L$="E"+LF$+"fl SIU"+CR*+ 

"DRJNFCKTZLWHVPQOBG*MXV*" 
60 F**"3"+LF*+ n - '87"+CR$+"$4''; ! : 

<5O2#6019?4*./:*" 
190 GET#2/C$'IFC$* ,U 'TH£M60 
1 10 ORSCCC*) : IFC<iORC>31THEN108 
120 IFLSTHENC$-=MD*CL*,C> 1 ) 
1.30 IFHOTLSTHEHC$=MID$CF*,C.- 1 ) 
140 IFC*0"*"THENPRINTC$; ; GOTO 160 



IL 



J] 
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15@ 


LS»<C' 


=31) 


160 


GETfl* 


:IFR$=" M THEN100 


170 


IFR$= 


'L"THENLS=-1 


175 


IFfl*= 


'F"THENLS=0 


133 


GOTO 100 



III 



"S.O.S. Revisited" 

December 1982/January 1983 

To have the program on page 56 loop infinitely, change 
line 230 to read: 

230IFA$(I)<A$(I+G)ORA$(I)=A$(I+G)GOTO280 
Thanks to R. Cicchinelli of Pittsburgh, Pennsylvania, 
for that one. c 



il 



From Osborne/ 
McGraw Hill 

2600 Tenth Street 
Berkeley, California 94710 

VisiCalc® Made Easy by David M. 
Castlewitz. A step-by-step tutorial di- 
vided into three parts. The first part in- 
troduces the basic skills needed to build 
a worksheet. The second examines the 
commands used to change and edit a 
worksheet. And the third covers ad- 
vanced uses and special tricks that 
extend the capabilities of the VisiCalc 
programs. 



From Hayden 
Book Company 

50 Essex Street 

Rochelle Park, New Jersey 07662 

Software Toolkit for Microcom- 
puters by Max Schindler. An edited 
compilation of articles from Electronic 
Design magazine that provides a com- 
prehensive discussion of how to use 
high-level languages and operating 
systems to speed up software design. 



CP/M® Revealed by Jack Dennon. 
Describes in detail the full potential of 
CP/M, including the system's technical 
aspects, the system manager, the input/ 
output driver package and the system's 
data structure. The book includes CP/M 
utilities and other essential information 
for using the system effectively. 

I Speak BASIC to my VIC by 

Aubrey Jones. A computer literacy course 
that introduces students to BASIC 
programming and operation of the VIC 
20. Includes a teacher's manual, stu- 
dent text and exam set. 



From the dilithium Press 

11000 S.W. 11th Street, Suite E 
Beaverton, Oregon 97005 

PET/CBM BASICS by D.J. David. 
A programming tutorial structured 
so the reader progressively learns the 
elements of programming in BASIC on 
the PET and CBM computers. Includes 
information on graphics, curves and 
animation. 

VisiCalc is a registered trademark of VisiCorp 

CP/M is a registered trademark of Digital Research, Inc. 
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new products 



The following information is 
taken from product announce- 
ments sent to us by independent 
manufacturers and is provided 
to help keep our readers abreast 
of developments in the field. 
Commodore does not endorse 
any of the products listed, has 
not tested them and cannot 
vouch for their availability. If 
you have any problems with 
any of the products listed here, 
please write to us. 



Company: 

Quick Return Co. 
31912 36th Avenue, S.W. 
Federal Way, WA 98003 
206-927-8980 

Product: 

Federal Individual Tax Preparation 
Program — for the Commodore 64 with 
disk drive and printer. Form 1040 is 
printed for reproduction with the over- 
lay included. Supporting schedules 
and forms are produced on the printer 
to IRS specifications. The 1982 version 
included 28 forms and schedules. The 
1983 program will be upgraded to 
include more. Designed for use by 
professional tax return preparers. Not 
all state returns may be available for 
the 1983 program. 
Price: Federal return $225; Average 
cost with state return $265 

Company: 

Galactic Software 
P.O. Box 10516 
San Jose, CA 95157 

408-247-4434 

Product: 

Mailing list— for the VIC 20 with 
16K expander. Each record contains 
name, address and three comment 
fields. Capability to alphabetize upon 
entry, sort and search all fields, print 

II 



labels or print complete records. 
Completely menu driven. 
Price: Tape $25.95; disk $27.95 

Company: 

Home Computer Corporation 

154 Heard Road 

Kathleen, GA 31047 

912-987-0235 
Product: 

Numeric keypad — for the VIC 20 
and Commodore 64. A 24-key array 
to aid in the entry of numerical data 
in business and machine language 
applications. Available in standard or 
hexadecimal versions. Easy to install. 
Price: 579.95 

Company: 

Programmers Guild 
P.O. Box 220 
LaCrescent, MN 55947 
Product: 

Three educational programs — 
for the VIC 20. Math Escape aids in 
learning addition, subtraction, multi- 
plication and division. Unlimited levels 
of difficulty. Sea Word has the student 
unscramble the graded words to defeat 
the sea serpent. Birthday Card and 
Story Time on one tape. First have 
a party, complete with song, cake and 
more. Then help the computer 
write stories. 

Price: Math Escape $14.95; Sea Word 
and Birthday Card/Story Time 59.95 

Company: 

Fabtronics 

51 Quarry Street 

Brockport, NY 14420 

716-637-6371 
Product: 

Utility File— for the VIC 20 (with 
3K expansion) and Commodore 64. 
A data processing program to calcu- 
late, display, file and print out data 
on utility consumption (including 
electric, water, gas, oil and propane) 
for designated unit numbers. Can also 
project cost for any number of days, 



For residential or commercial use. 
Price: Tape $17.95; disk $20.95. Add 
52.00 shipping and handling. 




Micron Eye Vision System 

Company: 

Micron Technology, Inc. 

2805 East Columbia Road 

Boise, ID 83706 

208-383-4000 
Product: 

MicronEye vision system — for the 
Commodore 64. Transmits images to 
the computer's memory, enabling 
graphics display, image analysis and 
image storage to disk. Possible appli- 
cations include program animation, 
security, automated process control, 
digitizing, pattern analysis, robot 
vision and text recognition. Capable 
of 256 x 128 resolution and operating 
speeds of up to 15 frames per second. 
Sample programs, driver routines and 
documentation included. 
Price: Contact company 

Company: 

Midwest Software 
Box 214 

Farmington, MI 48024 
313-477-0897 
Product: 
New useful programs— for PET/CBM 

I I 
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and Commodore 64. Datatog lets you 
define up to 12 fields and creates up to 
1000 records on a 4040 disk. Interfaces 
with popular word processors to print 
form letters or labels. Multiple sort 
and search capabilities. Requires 32K. 
Date Due manages overdue items in 
libraries. Prints reports by name, date, 
call number, title or room number. 
16K, 32K or Commodore 64. Multiple 
Choke creates up to 150 questions and 
answer sets per disk file. Any number 
of questions can be selected and ran- 
domized. Test can be taken on screen 
or printed on paper. Provides high 
security for teacher-made tests. 16K, 
32K or Commodore 64. 
Price: Datalogand Date Due $39.95; 
Multiple Choice $29.95 

Company: 

Connecticut microcomputer 
36 Del Mar Drive 
Brookfield, CT 06804 
203-775-4595 
Product: 
BUSSter A64 Digital Input Module 



— IEEE-488 64 digital channel data 
acquisition input module. Accepts 
commands from any computer through 
its IEEE port, reads and stores data from 
up to 64 digital TTL level lines and 
then sends this information back to 
the computer. Economically increases 
a computer's interfacing capability 
while reducing its workload. Pro- 
grammed through BASIC commands 
from the controlling computer. The 
built-in timer and buffer allow data 
sampling and collection to occur 
while the host computer is occupied 
with other tasks. 
Price: $495.00 

Company: 

Electronic Specialists, Inc. 

171 South Main Street 

Natick, MA 01760 

617-655-1532 
Product: 

Interference Control and Electronic 
Products Catalog — A new 40-page 
catalog from Electronic Specialists that 
presents their line of computer interfer- 



IEEE -4BB 



JUSSter^ A64 



/tC 



TIMER 



BUFFER 



POR T A 



PORT B 



<j> I PORT C~l 



w 



PORT E 



■& I PORT F 

& I PORT ( 



1 PORT D I 



■d> | PORT H~l 



IEEE-488 64 DIGITAL CHANNEL DATA ACQUISITION 
INPUT MODULE 



• 64 Digital Inputs 

• Built in timer 



• Buffered 

• 204B Byte Buffer Optional 



ence control products. Protective devices 
include equipment isolators, AC power 
line filter/suppressors, line voltage 
regulators and AC power interrupters. 
Request catalog 831. 

Company: 

J.L. Hammett Company, 

Microcomputer Division 

P.O. Box 545 

Braintree, MA 02184 

800-225-5467 (In Mass. 

800-972-5056) 
Product: 

1983 Hammett Microcomputer 
Catalog — A 48-page catalog offering 
over 300 administrative and instruc- 
tional products, covering everything 
from computer literacy to library, 
school and classroom management 
to math, reading, science and art. 
Features educator evaluated soft- 
ware and other computer essentials. 

Company: 

Focus 
Box 180 

Stony Brook, NY 11790 
Product: 

Catalog of programs for educa- 
tors — All programs are class-tested, 
process-oriented teaching aids for 
the PET and Commodore 64. 
Price: Free 

Company: 

Educational Systems, Inc. 
1000 Skokie Boulevard 
Wilmette, IL 60091 
312-256-4750 

Product: 

MICROREF™— Quick reference 
guides for today's most popular micro- 
computer software. Lists key proce- 
dures in easy-to-follow steps. Has a 
built-in easel and thumb-indexing for 
easy accessibility. Printed on non- 
glare plastic sheets for long life. 
Price: $19.95 to $24.95 



-II 
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new products 



Company: 

Scholastic, Inc. 
730 Broadway 
New York, NY 10003 
212-505-3000 

Product: 

Teaching and Computers — A new 

monthly magazine dedicated to helping 
elementary schooi teachers understand 
and use the microcomputer in the 
classroom. To be published eight times 
a year beginning in September, 1983. 
Price: Introductory subscription price 
is $15.95 a year. 

Company: 

Fliptrack® Learning Systems 
526 N. Main Street 
Glen Ellyn, IL 60137 
312-790-1117 

Product: 

How to Use VisiCalc* — Audio 
cassette tutorial that "talks" the 




learner through the development 
of a complex VisiCalc model. Starts 
with the basics of how to set up a 
spreadsheet then moves on to more 
advanced concepts. 
Price: Contact company 

VisiCalc is a registered trademark of VisiCorp 
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(SimplcxSof t Ltd) 

FINANCIAL RECORD SYSTEM 
For VIC 20®— Commodore 64® 

• Record, total, and/or print all income sources 

• Record, total, and/or print all expenses 

• Record, total, and/or print all the items on the most complex 
US tax forms {car, travel, entertainment, supplies, contribu- 
tions, medical, local & state taxes, etc.) 

■ Review & Edit all entries by day, week, month, year, and/or 
by category (car, medical, taxes, etc.) 

• Store & Retrieve all Data on tape or disk 

TAX TIME WILL TAKE AN HOUR OR SO 
NOT DA YS OR WEEKS 

IDEAL FOR: 

■ Individual & Multi-Income family financial S tax records 

• Self employed & company Reps, on expense accounts 

• Apartment owners and managers 

■ Small Contractors (Bldg,, Plumbing, Heating, Elect., 
Etc.) 

• Truck owners/operators 

• Farmers 

• Any other small businesses 

NO KNOWLEDGE OF COMPUTER LANGUAGE 
NEEDED— ALL IN PLAIN ENGLISH 

VIC 20 version requires 16K memory expander 
(Printer not required) 

SimplexSoft 2 tape system only $29.95 

Disk 34.95 

Specify cassette or disk and computer model 
Add S2.00 for mailing. 

Send check or money order to: 

SimplexSoft, Ltd. 
617 N. Property Lane 
Marion, Iowa 52302 

VIC 20 and Cornmodors 64 are trademarks ol Commodore Electronics LlrJ. 
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UNBEATABLE? 






No one, not even the author, has As the pilot of the Gridrunner, a 

ever achieved the last Gridrunner. It combat ship, you must annihilate 
is an extremely fast-paced arcade- the various enemies traveling 
quality game designed to test your along the "Grid." High scores are 
coolness under fire and challenge possible only through the mastery 

your reflexes. of the patterns of the X/Y Zappers 

and the Gridsearch Droids which, 
when destroyed, mutate into 
potentially lethal Pods. 

Gridrunner has 32 levels of diffi- 
culty (20 levels in 
the VIC 20 ver- 
sion). To this 
date, the 13th 
level has been 
■ the highest 

^^!^jS Kjjjjiiijjjjjjjjjjiijj achieved. 




Gridrunner 
is available 
for VIC 20™ 
and 

Commodore 
64™. 

Can you beat 
Gridrunner? 
See your local 
computer or 
games dealer 
and find out. 



Human Engineered Software 
71 Park Lane 
Brisbane, CA 94005 




a division of USI 

VIC 20 and Commodore 64 are trademarks of 
Commodore Electronics Ltd. 




MORE THAN JUST ANOTHER PRETTY FACE, 



Says who? Says ANSI. 

Specifically, subcommittee X3B8 of the American 
National Standards Institute (ANSI) says so. The fact 
is all Elephant™ floppies meet or exceed the specs 
required to meet or exceed all their standards. 

But just who is "subcommittee X3B8" to issue such 
pronouncements? 

They're a group of people representing a large, 
well-balanced cross section of disciplines— from 
academia, government agencies, and the computer 
industry. People from places like IBM, Hewlett-Packard, 
3M, Lawrence Livermore Labs, The U.S. Department 
of Defense, Honeywell and The Association of Com- 
puter Programmers and Analysts. In short, it's a bunch 
of high-caliber nitpickers whose mission, it seems, in 
order to make better disks for consumers, is also to 



make life miserable for everyone in the disk-making 
business. 

How? By gathering together periodically (often, 
one suspects, under the full moon) to concoct more 
and more rules to increase the quality of flexible 
disks. Their most recent rule book runs over 20 single- 
spaced pages— listing, and insisting upon— hundreds 
upon hundreds of standards a disk must meet in 
order to be blessed by ANSI. (And thereby be taken 
seriously by people who take disks seriously.) 

In fact, if you'd like a copy of this formidable docu- 
ment, for free, just let us know and we'll send you 
one. Because once you know what it takes to make 
an Elephant for ANSI . . . 

We think you'll want us to make some Elephants 
for you. 
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